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I.   INTRODUCTION 

With  the  increased  emphasis  within  DoD  and 
government  agencies  on  cutting  operating  costs  and 
improving  operational  efficiency,  systems  managers 
must  start  evaluating  office  automation  options.  The 
improvement  in  productivity  is  becoming  critical  for 
today's  managers. 

In  this  context,  the  small  office  environment 
becomes  a  prime  consideration  for  office  automation. 
These  small  offices  typically  represent  a  small 
fraction  of  the  total  organizational  assets  in  terms 
of  material  and  personnel,  but  they  can  represent  a 
major  problem  in  terms  of  organizational  efficiency 
and  effectiveness  if  left  to  fend  for  themselves  too 
long . 

Compounding  this  problem  of  data  processing  is 
the  general  inability  of  the  small  office  to  obtain 
the  resources  needed  to  automate  their  work.  Often, 
the  managers  of  these  offices  abandon  efforts  to 
improve  efficiency  and  effectiveness.  This 
abandonment  is  largely  due  to  the  manager's 
preception  that  the  organizational  goals  are  much 
larger   than   their   small  office  and  that  competition 
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for  organizational  resources  is  therefore  hopeless  in 
view  of  the  larger  divisional  needs.  It  is  at  this 
point  that  the  manager  has  placed  him/her  self  into  a 
no  win  situation. 


II.   PURPOSE  OF   THg  STUDY 

It  is  the  purpose  of  this  study  to  determine  the 
viability  of  a  full  office  automation  system  using 
standard  systems  analysis  design  techniques.  This 
study  will  provide  an  analysis  that  will  demonstrate 
in  terms  of  cost/benefits  and  improved  efficiency 
that  automation  or  some  other  alternative  is  the  most 
beneficial  evolution  in  obtaining  the  productivity 
increases  required. 
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IXZ.   NETHODQLQGY 

This  study  used  standard  systems  analysis  and 
evaluation  for  developing  a  flexible  system  to 
process  and  monitor  the  Navy's  Quality  Deficiency 
Reports  (QDR)  through  Fleet  Material  Support  Office 
<FMSO>,  Mechanicsburg,  Pennsylvania.  The  methodology 
of  this  work  was  accomplished  in  four  phases. 

A.   INITIAL  ANALYSIS 

The  information  processing  requirements  of  the 
office  were  analyzed  along  with  the  office's 
capabilities  to  process  these  requirements 
efficiently  and  effectively.  This  analysis  was 
accomplished  primarily  through  personal  interviews 
with  the  personnel  assigned  to  the  Defective  Material 
Section  (Code  91423) .  During  these  interviews 
attitudes*  beliefs,  perceptions*  motivations*  morale* 
and  job-satisfaction  levels  were  surveyed  as  well  as 
technical  details  about  the  actual  flow  of  work. 
Additional  interviews  were  conducted  with  individuals 
outside  the  office's  direct  chain  as  well  to  add 
breadth  to  the  study.  Among  these  were  Item  Managers 
and  Fleet  Activities.  Samples  of  all  forms  used  in 
the  process  were  gathered  and  reviewed. 
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B.  SELECTION  OF  A  FEASIBLE  APPROACH 

A  literature  search  waa  undertaken  to  determine 
the  best  approach  to  the  analyais  and  to  determine 
posaible  alternativea  to  the  preaent  ayatem.  The 
search  exaMined  recent  trenda  in  office  automation » 
specialized  application  programming,  software 
packages,  and  commonly  used  hardware  ayatema.  The 
results  of  this  research  were  integrated  with  the 
previously-determined  needs  of  the  office  to  provide 
a  basis  for  the  best  approach  to  solving  ita  needa. 

C.  ALTERNATE  PROCESSES 

Before  determining  that  a  fully-automated  proceaa 
was  the  answer  to  the  long  range  productivity  goals, 
several  alternate  processes  had  to  be  developed, 
tested  in  theory  or  actual  application,  and  judged  as 
to  their  suitability. 

D.  EVALUATION  OF  AN  APPROPRIATE  SOFTWARE  AND 
HARDWARE  PACXA6E 

The  Command  had  not  made  any  commitment  to  any 
particular  system.  A  survey  of  software  packages  and 
hardware  ayatema  available  waa  made.  Each  package 
and  aystem  waa  evaluated  on  ita  ability  to  handle 
established  requirements  and  offer  maximum 
flexibility  to  the  user. 
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IV.   SCOPE  OF  THE  STUDY 

This  study  analyzed  the  present  nanual  system  to 
determine  its  requirements,  identified  areas  where 
modifications  could  be  made  to  improve  short-term 
productivity,  evaluated  alternatives  available  for 
the  improvement  of  long-run  productivity,  and 
recommends  a  systems  design  that  will  meet  future 
requirements . 

A.   RESEARCH  QUESTIONS 

1.  What  short-  and  long-run  productivity  gains 
can  be  realized  by  a  modification  of  present  methods? 

2.  Can  the  automation  of  the  tracking  system  now 
in  use  on  the  Quality  Deficiency  Reports  lead  to  a 
better,  more  reliable  system? 

3.  Will  the  systems  analysis  substantiate  a 
fully-automated  system? 

4.  Will  it  show  that  an  alternative  process 
should  be  used? 

5.  What  problems  need  to  be  considered  in  the 
design  of  a  general  office  automation  system? 
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B.   8UMNARY  OF  FINDINGS 

The  analyaia  of  the  Quality  Deficiency  Report 
ayatea  revealed  bottlenecka  In  both  processing 
procedurea  and  management  style.  Workload  figures 
over  the  paat  four  yeara  plua  the  first  four  months 
of  the  present  calendar  year  show  an  overall  increase 
of  1519(  in  the  case  load.  There  existed  a  large 
backlog  that  was  over  age  (as  defined  by  the 
governing  instructions) ,  representing  hundreds  of 
thousands  of  dollars  in  possible  cash  flow  back  to 
the  Navy  Stock  Fund  <NSF) . 

On  site  observations  also  revealed  considerable 
resiatance  to  any  change  in  the  method  of  handling 
the  QDR.  A  number  of  conditions  existed  that 
reinforced  this  resistance  and  were  felt  to 
contribute  equally  to  the  frustrationa  being 
experienced  by  the  analysts  and  managers  of  the  QDR 
process . 

A  cost/benefit  analyais  showed  that  the  coat  of 
automating  the  process,  as  opposed  to  hiring  more 
personnel  and  continuing  the  present  system,  would 
realize  an  initial  pay  back  in  approximately  four 
months . 
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V.      BflChQWQUfC 

A.   OUPLXTY  DEFICIENCY  REP0RTIN8  SYSTEM  OVERVIEU 

Navy  Supply  Inatruction  (HAVSUPINST)  4440. 120E 
deslgnatea  Flaet  Hatarial  Support  Off lea  <FMSO)  as 
-tha  ovarall  Monitor  for  tha  quality  deflclancy 
aanagaaant  Information  reporting  ayatea.  Within  this 
fraaework,  FMSO  haa  tha  raaponalblllty  of:  1) 
notifying  appropriate  Navy  actlvltlea  of  QOR 
Material;  2>  coordinating^  recording  and  monitoring 
actions  of  aanagera;  3)  aacertalnlng  locatlona  and 
quantity  of  QDR  material  at  Navy  facllltlea  and  4> 
ensuring  that  timely  dlapoaltlon  Inatructlona  are 
forwarded  to  Navy  actlvltlea.  The  Command  does  not 
monitor  QDR' a  In  the  area  of  aubalatence,  aviation, 
anaunltlon  and  certain  aedlcal,  nuclear  and  ayateaa 
coMMand  Itema.  Figure  1  la  the  organizational  chart 
for  FNSO.  QDR 'a  are  handled  by  the  Technical  Branch 
(code  9142>  within  the  Comptroller  Department  (code 
91).  Figure  2  la  the  organizational  chart  of  the 
Comptroller  Department.  Within  the  Technical  Branch, 
code  91423  (Defective  Material  Section)  la 
responsible  for  the  actual  proceaalng  of  all  QDR' a. 

There   are   t%#o   categorlea  of  QDR' a:   1)  category 
1,      uaed  to  Identify  life  threatening/highly  hazardoua 
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situations  that  sust  b«  procsssad  within  24  hours  of 
receipt  and  2)  category  II,  used  to  identify  routine 
situations  of  a  non-hazardous  nature  which  must  be 
processed  by  FHSO  within  ten  days. 

After  processing  the  QDR  through  FNSO»  the  report 
is  sent  to  the  Item  Manager  (i.e.  Defense  Logistics 
Agency,  Ship  Parts  Control  Center,  etc.>  for  a  foraal 
investigation  into  the  nature  of  the  problem  (i.e. 
bad  specifications,  substandard  material,  etc.). 
When  this  investigative  process  between  the 
governsent  and  the  contractor  has  been  cospleted,  a 
determination  is  made  as  to  whether  the  contractor 
will  or  will  not  reimburse  the  government.  The  Item 
Manager  then  issues  disposition  instructions  back  to 
FMSO.  Upon  receipt  of  these  disposition 
instructions,  FMSO  reissues  these  these  instructions 
to  all  commands  affected.  If  credit  to  the 
government  is  indicated,  it  is  then  posted  to  the 
case  file  and  the  case  is  closed  out. 

B.   THE  ORiaiNAL  SYSTEM 

Under   the  present  system,  daily  mail  and  messages 
are   picked   up   by  the  branch  secretary.   The  traffic 
is   then   sorted   and  routed  to  the  various  sections. 
Quality   Deficiency   Reports   (QDR's)   and   Reports  of 
Discrepancy    (ROD's)   are   routed   to   the   Defective 
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Material  Section,  code  91423.  QDR'a  are  Identified 
as  Category  I  or  Category  II.  Category  I 'a  are  aent 
to  the  auperviaor  and  Category  II 'a  are  aent  to  a 
Supply  Syatea  Clerk  <SSC> . 

Figures  3,  4,  and  5  ahow  the  overall  flow  of 
Category  II 'a.  The  SSC  determine  the  nature;  e.g. 
Screening  Receipt,  New  Caae,  or  Existing  Caae.  If 
the  form  ia  a  Screening  Receipt  (Figure  3)  (an 
acknowledgeaent  by  the  Itee  Manager  of  receipt  of  a 
caae  now  in  work),  it  ia  placed  in  the  caae  folder 
and  filed,  with  no  further  action  taken. 

If  the  fore  ia  an  action  on  an  exiating  caae 
(Figure  4),  the  caae  folder  ia  pulled  froa  the  filea 
and  aent  to  the  Supply  Syatea  Analyat  (SSA) 
reaponaible  for  that  Cognizance  Group  (COG) .  The  SSA 
deteraines  if  it  ia  a  requeat  for  additional 
information  from  the  Item  Manager,  Final  Diapoaition 
Inatructiona  on  the  caae  or  a  Tracer  Action  initiated 
by  the  origiator  of  the  QDR.  If  it  ia  a  requeat  for 
additional  information,  the  SSA  attempta  to  anawer 
the  requeat  either  from  exiating  information  or  by 
going  back  to  the  originator.  The  SSA  then  drafta  a 
reply  back  to  the  Item  Manager  and  aenda  it  out.  The 
caae  file  is  updated  and  refiled.  For  Oiapoation 
Instructions;  the  SSA  determines  what  haa  been 
directed   to  be  done,  drafta  a  meaaage  to  all  effected 
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activltie«  and  releaaea  it.  If  tha  Diapoaition 
Inatructiona  indicate  that  the  government  ia  to 
receive  credit,  it  ia  poated  on  the  Caae  Report.  The 
caae  ia  then  aent  to  a  SSC  who  entera  the  pertinent 
cloae  out  data  in  the  current  computer  databaae  and 
the  caae  ia  then  on  file  for  three  calendar  yeara. 
For  Tracer  Actiona,  the  SSA  aimply  detarainea  if  a 
caae  ia  in  exiatence  and  aenda  a  reply  back  to  the 
originator. 

If  the  caae  ia  determined  to  be  new  or  ia  a 
Report  of  Deficiency  (ROD),  the  SSC  aenda  the 
paperwork  to  an  SSA  for  initial  acreening  and  review 
(Figure  5) .  Thia  particular  30b  ia  rotated  on  a 
nonthly  baaia  between  all  SSA' a.  If  the  caae  ia  an 
ROD,  a  form  letter  (OPNAV  5216/158)  ia  attached  aa  a 
cover  and  mailed  to  the  ahipping  activity  for  action. 
No  other  actiona  are  required  of  FMSO. 

For  a  new  caae,  the  SSA  acreena  the  QDR  for  auch 
thinga  aa  Category  II 'a  that  ahould  be  Category  I 'a 
etc.  The  caae  ia  then  paaaed  to  a  SSC  who  verifiea 
all  data  againat  the  moat  current  publicationa, 
reaearchea  the  National  Item  Identification  Number 
(NUN)  againat  a  3  x  5  card  for  previoua  QDR' a  entera 
pertinent  new  caae  data  to  the  computer  databaae,  and 
then  aenda  the  caae  to  the  SSA  handling  that 
particular   COG.    The   SSA   acreena  the  QDR,  verifiea 
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any  information  that  »ay  atill  raaain  in  question, 
nakea  out  copiea  of  FMSO  for«  4440/ 12A,  gets 
additional  copiea  of  the  original  QDR  aade  out,  send* 
a  copy  to  the  SSC  for  filing  and  haa  the  original 
mailed  to  the  Item  Manager  with  a  copy  mailed  back  to 
the  originator  aa   a  receipt. 

Category  I  QDR' a  (Figure  6),  are  routed  to  the 
second  Line  STuperviaor  who  personally  screens  them 
and  decides  which  SSA  should  handle  it.  The  SSA 
(Figure  7)  then  does  the  complete  process  of 
screening,  verifying,  assigning  a  case  number, 
initiating/updating  a  local  3x5  control  card, 
researching  the  item  in  question  and  drafting  a  new 
message  to  the  Item  Manager  and  the  Originating 
Activity.  The  message  then  goew  to  the  second  Line 
Supervisor  for  review  and  back  to  the  SSA  for  any 
corrections.  Once  approved,  the  message  is  signed 
and  released  by  the  supervisor. 

Tracer  actions,  requests  for  additional 
information,  screening  receipts,  and  final 
disposition  instructions  are  all  handled  in  the  same 
manner  as  for  Category  II  QDR's  except  they  all  go 
through  the  second  Line  Supervisor. 

At  present,  FNSO  is  using  a  General  Electric  (GE> 
time-sharing  service.  This  service,  based  in  Ohio, 
is   accessed   from   the   office  by  a  single,  300  baud, 
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Western  Union  teletypewriter.  Figures  8  and  9  are 
the  ayaten  diagrams  fro«  the  manual.  Figure  8  shows 
the  logical  flow  of  QDR  data  from  the  originating 
activity  to  FMSO  and  then  into  the  GE  database. 
Figure  9  is  a  logical  representation  for  the  updating 
process  of  the  database  itself  and  the  generation  of 
requested  reports.  After  receipt  of  a  report 
request,  the  system  holds  the  request  in  a  queue 
until  off-peak  hours  for  processing.  The  reports  are 
then  mailed  to  the  customer.  Receipt  of  requested 
reports  is  generally  within  three  to  four  working 
days  of  request . 

This  system  is  several  years  old.  It  now  suffers 
both  from  a  functional  ability  to  keep  pace  with  the 
present  requirements  of  the  office  and  from 
inefficient  physical  design.  The  work  station  in  the 
office  requires  the  operator  to  lean  over  and  peer 
down  behind  a  ribbon  in  order  to  read  messages  from 
the  system.  The  system  requires  several  minutes  to 
respond  to  a  request,  making  it  time-consuming  and 
costly.   It  has  no  online  inquiry  capabilities. 

When  the  system  goes  down,  there  is  no  accurate 
process  by  which  to  determine  what  or  how  much  data 
is  affected.  The  Defective  Material  Section  receives 
notification  of  system  failures  with  possible  data 
that    may    have    been    lost.    This   is   the   only 
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Infornation  available  to  the  cuatoaer.  Thla  aeans 
that  the  office  haa  to  reenter  all  data  froa  the  daya 
in  question  with  no  knowledge  am  to  whether  they  were 
actually  lost  or  not.  The  ayatea  will  error  trap 
duplicate  entiea  of  caaea  by  caae  nuaber;  but  in  the 
nean  time,  it  ia  not  known  how  much  work  ia  actually 
waated  due  to  duplication.  Furthermore,  there  ia  no 
positive  way  of  knowing  how  much  other  work  waa  loat. 
For  theae  reasona  information  from  the  present  system 
is  suspect. 

The  system  is  currently  accessed  by  a  1200  baud 
work  atation  located  in  another  office  which  allowa 
the  viewing  of  information  directly  on  a  CRT.  This 
overcomea  the  problem  of  transmission  speed.  At 
present  the  system  belongs  to  another  branch  and  can 
only  be  used  when  that  branch  is  not  using  it. 

Laat  year  the  office  had  a  budget  of  $17 » 000  for 
the  operation  of  the  GE  aystem.  This  year,  the 
office  had  spent  a  total  of  Sid, 000  aa  of  April  30th. 
Next  year's  funding  request  ask  for  a  total  of 
350,000  in  order  to  keep  pace  with  the  growing  work 
load. 

C.   ANALYSIS  OF  THE  0RI8INAL  SYSTEM 

Several  areaa  were  noted  aa  bottlenecka  in  the 
general    flow    in   the   present   system.    Follow-up 

31 


analysis  revealed  a  combination  of  overly-restrictive 
aanagesent  constraints »  lisited  number  of  processing 
materials  <NIIN  microfiches,  card  decks  with  previous 
history  filed,  etc,.)  and  individuals  over-worked  as 
a  result  of  current  vacancies  in  the  staffing  of  the 
section. 

Dotted  lines  in  Figures  10,  11,  12,  13,  and  14 
show  the  areas  that  were  identified  for  follow-up 
analysis.  In  each  case,  a  bottleneck  in  the  process 
occurs  that  results  in  the  addition  of  from  one  to 
four  days  being  added  to  the  in-house  turnaround  time 
for  Category  II  QOR's.  The  Category  I  QOR's  were 
being  handled  within  the  instruction  guidelines; 
though  inefficiently.  These  were  all  physical 
constraints  that  were  eventually  corrected  by  a  new 
QDR  flow  and  rearrangement  of  management  oversight. 

Intangible  problems  included  perceptions  as  to 
what  was  happening  in  the  immediate  environment. 
Morale  within  the  entire  Defective  Material  Section 
was  found  to  be  low,  attributable  to  three  factors: 
nisperceptions  as  to  what  was  happening  with  the 
vacancies  in  the  first  Line  Supervisor  and  the  third 
Line  Branch  Manager's  (a  Military  Personnel  Billet) 
30b  and  the  perceived  notion  of  working  in  a  job  that 
had  little  or  no  prospects  for  advancement.  The 
first   Line   Supervisor's  job  was  being  handled  by  the 
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second  Lino  Supervisor  who  oversees  two  additional 
offices  and  the  third  Line  Branch  Manager's  billet 
was  being  temporarily  filled  by  a  GS-12  fro«  another 
branch  within  the  division,  creating  a  less  than 
optimal  situation. 

Largely,  the  Supply  System  Analyst  comes  to  the 
job  as  a  GS-9  with  promotion  opportunity  available  to 
only  one  GS-11  first  Line  Supervisory  30b  within  the 
section.  Though  lateral  moves  are  possible,  the 
personnel  within  the  Defective  Material  Section  view 
this  as  a  difficult  process. 

Backlog  is  steadily  increasing  (see  Table  1,  page 
52) .  The  number  of  cases  arriving  daily  are  more 
than  can  be  processed  in  the  day;  an  average  of  39 
new  cases  arrive  each  day  as  opposed  to  15  per  day  in 
1979,  an  increased  of  160X.  Analysis  of  the  case 
input  flow  revealed  no  predictable  trends  of  totals 
within  a  given  COG  type.  This  lack  of 
predicatability  makes  the  scheduling  of  work 
disorganized.  On  a  daily  basis,  the  volume  of  QDR's 
ranges  from  noe  to  170  new  cases. 

The  manner  in  which  cases  were  allocated  created 
case  load  imbalances  leaving  some  analysts  under 
utilized  and  others  over  burdened.  Some  QDR's  are 
simply  a  process  of  quick  verification  and  routing  to 
the   Item   Manager  for  action  while  others  may  require 
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technical  research  or  phone  contract  with  the 
originator.  Tiite  zone  differences,  ship-at-sea 
communications,  etc.,  further  delay  the  process.  In 
addition  to  new  cases,  there  are  inquiries  and  tracer 
actions  on  outstanding  cases  that  must  be  researched 
and  sent  out  by  the  analyst  who  originally  handled 
the  case.  Disposition  instructions  on  outstanding 
cases  arrive  from  the  various  Item  Managers  directing 
actions  that  may  involve  time  frames  established  by 
legal  actions. 

Additional  problems  are  caused  by  the  method  by 
which  cases  are  handled  when  they  arrive  in  the 
office.  All  cases  are  initially  screened  for 
correctness  by  one  SSA  and  then  sent  to  an  SSC  for 
more  screening  and  verification.  This  creates  a 
bottleneck  in  the  flow  at  two  consecutive  locations. 
Finally,  the  QDR  is  distributed  to  the  analysts 
according  to  COG.  With  the  randomness  of  daily  case 
load  arrivals,  this  approach  creates  a  very 
substantial  imbalance  of  case  loads.  Once  the  case 
is  processed  by  the  analyst,  an  additional  bottleneck 
is  created;  all  cases  are  passed  to  the  branch 
secretary  to  address  and  mail  out. 

Analysis  of  the  current  computer  time-share 
system  shows  it  to  be  inadequate  for  the  office  needs 
and   should  be  either  upgraded  or  replaced  altogether. 
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With  the  case  load  continuing  to  increase 
year-to-year  (see  Table  1,  page  52)  the  present 
system  will  continue  to  become  more  of  a  ma3or  cost 
and  bottleneck  in  the  processing  of  QOR's. 

Thus,  with  the  misperceptions  of  what  was 
occurring  with  the  current  staff  vacancies,  the 
intervention  of  a  Second  Line  Manager  into  the  daily 
routine,  and  the  increased  work  load,  coupled  with 
decreasing  morale  all  added  up  to  a  situation  that 
steadily  grew  worse.  Add  to  this  situation  the 
manager's  perception  that  the  office  is  less  than  I'c 
of  the  organizational  labor  force  and  considerably 
less  than  IX  of  the  dollar  assets  and  capital 
investment.  Therefore,  their  problems  are  not  of 
command  level  significance  and  no  one  really  cares. 
The  resulting  combination  of  circumstances  can 
quickly  lead  to  a  crisis. 


D.   MODIFICATION  OF  THE  EXISTING  SYSTEM 

The   areas  outlined  in  Figures  10,  11,  12,  13,  and 
14   are   the  areas  that  were  given  detailed  analysis. 
The   results   of  these  analyses  were  the  foundation  of 
the   preliminary   design  of  a  fully  automated  system. 
Five  ma3or  criteria  were  used: 
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1.  How  would  an  office  automation  ayatem  affect 
this  flow  proceaa? 

2.  How  »uch  of  that  affect  could  be  continued 
under  a  aanual  flow? 

3.  How  much  of  an  impact  will  a  given  change 
have  in  terms  of  human  behaviorial  patterns? 

4.  What  would  have  to  be  done  in  terms  of 
training  and  commitment  of  office  personnel  in  order 
to  ensure  the  new  system's  success? 

5.  What  impact  would  this  change  have  on 
employee/management  morale? 

This  approach  was  used  to  evaluate  alternative 
methods  to  a  full  office  automation.  The  above 
allows  prediction  of  productivity,  thereby 
faciliatating  projections  of  future  capacity.  The 
resulting  flow  process  will  produce  a  new  system  that 
will  even  the  work  load  among  the  Supply  System 
Analysts,  allow  easy  identification  of  backlog, 
increase  output,  a  rearrangement  of  management 
oversight  procedures  and  a  dramatic  decrease  in 
immediate  backlog. 

For  Category  II 's,  the  process  (Figure  IS)  was 
completely  overhauled.  Screening  receipts  are  still 
filed  away  in  the  case  folders  as  before.  However, 
new   cases   and   ROD'S   are   placed  in  folders  and  the 
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entire  batch  received  that  day  are  placed  at  the 
bottom  of  a  backlog  pile  (Figure  16).  This  allowa 
management  and  office  personnel  an  immediate 
knowledge  of  real  exieting  backlog  and  reduncancy  in 
the  system  is  eliminated.  When  an  SSA  then  does  all 
necessary  screening*  validating  and  research,  assigns 
the  case  number »  makes  all  copies  needed,  prepares 
the  cover  letters  and  cases  for  mailing.  The  file 
copy  is  given  to  the  SSC  for  filing  and  the  secretary 
picks  up  the  envelopes  for  mailing. 

This  approach  essentially  changes  the  type 
queuing  system  in  which  the  QOR'a  were  placed. 
Before,  the  method  assigned  a  QOR  to  a  given  SSA 
regardless  of  the  SSA's  backlog.  Now  the  QOR  waits 
in  a  single  queue  for  the  next  available  SSA.  This 
process  evens  the  workloads,  reduces  the  average 
waiting  time  for  processing,  and  eliminates  the 
bottlenecks  by  having  fewer  people  work  on  the  total 
flow  of  a  case  versus  several  people  trying  to  handle 
an  aspect  of  every  case. 

When  disposition  instructions,  tracer  actions  and 
requests  for  additional  information  are  received 
(Figure  17),  the  SSC  pulls  the  case  and  identifies 
the  SSA  working  on  that  case  by  the  addition  of  an 
SSA   code   attached   to   the  case  number.   The  case  is 
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Ou«Hty  Ooftcfoncy  Flow  Otagrtit  -  New  Flow  Proc©««  (Cttogory   II) 
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then  placed  in  the  SSA's  Incoming  box  for  handling  as 
before. 

Category  I  QDR'a  and  the  limited  number  of 
nuclear  material  QDR'a  are  handled  differently.  The 
second  Line  Supervisor  is  given  a  copy  for  management 
oversight  only.  All  Category  I'a  and  'X'  COG  Nuclear 
QDR's  are  now  sent  straight  to  one  SSA  who  handles 
all  the  cases.  Figure  Id  shows  this  new  flow.  In 
this  way,  the  other  SSA's  are  never  interrupted  by  an 
unexpected  emergency  case.  If  the  SSA  handling  the 
Category  I's  and  Nuclear  cases  finds  him/her  self 
caught  up,  s/he  can  help  out  with  the  Category  II 
case  load . 

The  implementation  of  this  new  process  allowed  a 
couple  of  things  to  be  accomplished:  1)  a 
significant  reduction  in  the  time  to  process  a  case 
was  immediately  realized  as  evidenced  by  the 
reduction  of  the  backlog;  2>  an  alternative  process 
to  full  automation  was  applied  and  evaluated;  and  3) 
the  process  was  moved  closer  to  full  automation. 

In  addition  to  these  changes,  a  simple  database 
consisting  of  a  ten  field  record  was  added  to  the 
system.  This  system  was  added  on  the  basis  that  it 
would  not  create  an  additional  conversion  problem 
later,  would  be  easily  maintained,  not  require  an 
undue   amount   of   labor   time   to   keep   up  and  would 
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provide  management  with  a  means  of  acquiring  data 
about  the  cases  being  processed  without  disrupting 
work  flow. 

This  database  was  established  on  an  IBM  Personal 
Computer  using  dBase  II.  The  reasons  for  this 
selection  were:  1>  the  hardware  and  software  had 
already  been  evaluated;  2>  it  was  able  to  meet  the 
processing  requirements  of  the  office;  3)  both 
systems  were  easily  obtained  without  further  expense 
to  the  project;  4>  it  allowed  for  both  initial 
training  of  office  personnel  and  command  programmers; 
and  5)  it  allowed  for  the  initial  evaluation  of  an 
office  automation  system  in  a  practical  application 
without  creating  follow-on  problems  or  total 
commitment  to  full  automation. 

The  database  was  created  to  allow  tracking-  of: 
1)  average  awaiting  time  a  case  experiences  before 
being  processed;  2)  average  processing  time;  3> 
average  turnaround  time;  4>  average  response  time  of 
the  Item  Manager  on  cases  (either  overall  or  by 
specific  Item  Manager);  5)  average  turn  around  time 
required  to  process  final  disposition  instructions; 
6)  average  case  load  by  analyst;  7)  total  number  of 
cases  in  the  system;  8)  total  number  of  Category  I 
and  Category  II  cases;  9)  total  number  of  cases  in 
the   office;   10)   total  number  of  cases  awaiting  Item 
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Manager  reaponae  by  Item  Manager  or  compoaite  total; 
11)  total  number  of  caaaa  In  final  dlapoaitlon;  12) 
total  number  cases  closed  out  to  date;  and  13)  case 
load  breakdown  by  COG  and  Item  Manager.  Figure  19  Is 
a  listing  of  the  database  structure  and  a  sample 
printout  of  the  records  in  the  database.  Appendix  A 
is  a  complete  listing  of  the  application  program 
developed  using  dBase  II  to  manipulate  the  database 
and  generate  the  management  reports.  Appendix  B  is 
the  necessary  data  definitions  used  in  the 
application  program. 

The  database  and  application  programs  were 
developed  as  a  means  of  evaluating  the  training 
requirements  that  would  have  to  be  considered  in  any 
decision  to  automate  the  office.  Appendix  A  does 
not  represent  the  final  version  of  the  application 
program  used  to  drive  this  interim  database.  Rather, 
it  was  only  a  first  cut  at  developing  application 
programs  using  dBase  II. 

No  modifications  to  the  existing  time  share 
system  were  attempted  when  it  was  learned  from  the 
system  programmers  that  to  make  one  minor  change 
would  require  approximately  30  man  hours.  The 
current  system  is  still  in  operation  pending  final 
decisions  concerning  changes  to  the  overall  data  flow 
within  the  office. 
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LISTING  OF  DftTPBASE  STRUCTURE  AND  SAMPLE  RECORDS 


Structure  for  file:   MGR.DBF 
Number  of  records:    00010 
Date  of  last  update:  00/00/00 
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vx.     pwapoagp  flurowftTED  avaTEw 

A.   THE  OeCISIQN  TO  AUTOMATE  THE  SYSTEM 

While  the  changes  from  the  old  flow  proceaa  to  a 
Kore  atreaalined  proceaa  achieved  the  deaired 
ahort-run  effects  of  reducing  the  immediate  backlog, 
streamlining  the  proceaa  and  improving  productivity, 
there  atill  existed  areas  where  the  manual  process 
involved  could  not  be  improved  beyond  a  certain 
degree.  Further  analysis  revealed  that  long-run 
requirements  were  not  going  to  be  met  in  view  of  the 
continued  upward  trend  of  case  loads.  An  effort  to 
determine  the  reasons  behind  the  sharply-increased 
number  of  cases  in  the  past  couple  of  years  revealed 
a  greater  emphasis  being  placed  on  the  QDR  system  and 
the  addition  of  areas  not  previously  covered  by  the 
QDR.  This  led  to  the  conclusion  that  the  number  of 
cases  in  coming  years  would  continue  to  increase. 
Analysis  of  19S3  caseload  for  the  period  of  January 
through  April  shows  a  projected  work  load  in  excise 
of  10,000  cases.  This  data  reveals  a  potential  case 
load  increase  for  19S3  over  1982  of  over  5lx.  Based 
on  his  upward  trend,  it  was  decided  to  continue  the 
evaluation  process  toward  an  office  automation 
system. 
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B«   THE  COST/BENEFIT  ANALYSIS 

As  was  stated  earlier,  the  flow  of  cases  into 
FHSO  revealed  no  significant  pattern  during  any 
particular  time  except  that  the  total  number  of  cases 
per  year  has  grown  at  a  rate  of  approximately  50X  per 
year  during  the  last  two  years.  Table  1  is  a 
breakdown  by  year  showing  the  total  number  of  cases 
that  came  in  to  FHSO,  an  average  monthly  case  load, 
the  growth  rata  between  one  year  and  the  next,  and 
the  overall  growth  rate  that  the  office  has 
experienced  from  January  1979  to  the  end  of  April 
1983. 


TABLE  1 
ANNUAL  CASE  LOAD  AND  PERCENTA6E  CHANGES 

YEAR     MONTHLY  TOTAL  % 

YEAR     TOTAL    QVE>»SE Ik   CHAH6E CHftWeg 


4.4X 

9.55« 

159.9* 
48.936 

44.39( 


•  Projection  of  workload  for  1983  based  on  January  - 
April  1983  totals. 


Currently,   there   exists  a  need  in  the  office  for  one 
GS*3,   two   GS-4's   and  two  GS-5  Supply  System  Clerks,  and 


^.2 


1979 

4002 

333.5 

1980 

4178 

348.2 

1981 

4S73 

381.1 

1982 

6809 

567.4 

1983» 

10320 

860.0 

for  one  GS-11  first  Line  Supervisor.  Table  2  shows 
average  salaries  <plua  SOX  for  benefits)  as  computed  by 
FMSO  using  the  NAVCOHP  Manual  formulas  for  computing 
local  average  acceleration  tables  for  salaries  paid  to 
government  service  personnel.  The  GS-11  first  Line 
Supervisor  is  not  included  in  this  table*  as  it  was  felt 
that  there  would  be  a  need  to  fill  this  position 
regardless  of  the  system.  Therefore »  a  position  of  cost 
avoidance  was  taken  in  the  cost/benefit  analysis  of  any 
system  under  consideration.  Table  2  further  shows  the 
cost  of  the  current  time-sharing  system  that  is  currently 
installed.  Using  the  following  equation  derives  an 
hourly  rate  of  current  operations. 


Ts   =  Total  salaries 
Taa  =  Time  share  sytem 
H    3  Work  hours  per  day 
U<j   =  Work  days  per  month 
M    =  Months  per  year 
Hr   =  Hourly  rate  of  current 
operations 


Ts  *      Taa 
=   H, 

H  »  Wd  •  M 


«91,617  ♦  650,000 
a  370.68 

2004 
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TABLE  2 
AVERASE  SALARIES  AKD  COSTS  GF  CONTINUIDie  ORIGINAL  SYSTEM 


RATE  STEP  1  STEP  la  AVERASE  BEigEFITa 

GS-3  $10,645  S13»d40  312.242  •  1.30 

GS-4  $11,949  $15,531  $13,740  •  1.30 

GS-5  $13,369  $17,383  $15,376  •  1.30 


TOTAL 


$15,915 
$17,862 
$19,989 


Average  Annual  Salary 
Plus  Benefits 

2004  Working  Hours 
Per  Year 


Hourly  Rate 


RATE 

HOURLY 
RAT? 

GS-3 
2  •  GS-4 
2  •  GS-5 

TIME 

SHARE 

$  7.94 
$  8.91 
$  9.97 
$24.95 

TOTAL  HOURLY 
RATE  OF  PRESENT 
SYSTEM 

$70.68 

$15,915  ♦  <2  »  $17,862)  ♦  (2  •  $19,989)  =  $91,617 

Budgeted  Coat  of  Current  Ti«e  Share  System  for 
Next  Year   »   $50,000 

Total  Salaries  *      Time  Share  System   =   $141,617 

Assuming   that   the   hiring   of   these   additional 

personnel    can    be   avoided   and   that   the   current 

time-share    system   is   discontinued,   direct   annual 

costs   savings   of  $141,617  can  be  realized.   Assuming 

that    an    automated    office    system    would    cost 

approximately   $50,000,   the  initial  payback  period  is 

approximately   four   months  aa   shown  by  the  following 

calculations : 
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Too  "  Total  aystam  cost. 

Hr   "  Hourly  rata 

Awh  -    Avaraga  work  hours  par  day 

Awd  **  Average  work  days  per  month 

Pp   -  Payback  period  measured  in  months 


<<<T8c/Hr>/  Awh)  /  Awd>  "  Pp 


<<<50, 000/70. 68)/  a  )/  22)  =  4.02  months 

payback  period 


The  figure  of  four  months  represents  a  maximum 
payback  time  since  the  only  values  taken  into 
consideration  at  this  point  are  the  direct  coat 
savings  that  can  be  easily  determined.  Table  3  shows 
the  total  amount  of  money  credited  back  to  the  Mavy 
Stock  Fund  (NSF)  in  calendar  years  1981  and  1982. 
Averaging  these  two  years  together  and  computing  the 
dally  average  amount  of  cash  flow  back  to  the  NSF 
each  working  day  is  worth  916,780  in  average  cash 
flow. 

TABLE  3 
QUALITY  DEFICIENCY  REPORT  CREDITS  BACK  TO  THE  NAVY 

STOCK  FUM) 

YEAR    CREDITED  TO  NSF 

1981  94,452,416  1981  ♦  1982 

a   S16,780 

1982  $4 . 407 . 504      22  Daya  •  12  Months 
AVERAGE   94,429,960 


55 


Under  the  guidelines  of  NAVSUPINST  4440. 120E, 
FMSO  has  ten  days  in  which  to  process  a  QDR.  At  the 
tine  of  the  original  systems  analysis^  there  existed 
a  thirty-seven-day  average  age  in  dOO  backlogged 
QDR's.  Subtracting  ten  days  (allowed  for  processing) 
from  the  thirty  seven  days  in  the  backlog  and 
nultipling  the  cash  flow  by  twenty-seven  results  in 
the  cost  of  the  backlog.  Increasing  this  by  lO'c  cost 
of  capital  (or  in  this  case;  opportunity  cost)  used 
by  the  federal  government,  a  twenty-seven-day  backlog 
plus  opportunity  cost  in  terms  of  interest  rate  on 
that  backlog  can  be  seen  by  the  following 
computations : 

Calculation  1: 

S16,780  »  27  Days  =  3453,060 

«   I.IOSC 


3498,366  minimum 
cost  of  backlog 


Calculation  2: 

316,730  •  36  Days  =  3604,080 

•   1.10* 


3664,488  maximum 
cost  of  backlog 
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Tho  first  figure  is  the  minimuii  cost  of  a 
thirty-aeven-day  average  age  backlog.  If  this 
backlog  could  be  turned  around  in  one  day,  a 
thirty-seven-day  average  age  backlog  can  represent  a 
considerable  amount  »ore  in  terms  of  cost  and 
interest  as  seen  by  the  second  computation  above. 

There  is  another  way  of  looking  at  the  cost  of  a 
backlog.  Totaling  the  amount  credited  back  to  the 
NSF  in  calendar  years  1961  and  1982  and  dividing  by 
the  total  number  of  cases  processed  during  those  two 
years  results  in  an  average  value  that  each  case 
represents.  Multiplying  this  case  value  by  the 
number  of  cases  currently  in  the  office  at  any  given 
point  in  time  results  in  an  average  value  of  the 
backlog. 


Total  1981  &  1982  Credits 

=  Average  Value  of  a  Case 

Total  Cases  for  1981  &  1982 


$4,452,416   ♦   34,407,504 
=   $77g 

4,573  *      6,809 


800  cases  »  S778   =   «622,400 


This  final  figure  is  very  close  to  the  the 
figurea  obtained  earlier.  When  either  set  of  figures 
i3  brought  into  the  coat/benefit  analysis^  the  mere 
ability  to  keep  the  processing  tine  of  the  cases 
within  the  tens  day  alone  means  a  payback  of  the 
aystea  coata  within  weeka  rather  montha. 

There  are  some  other  areaa  where  savings  can  be 
realized  that  are  not  so  dramatic.  Currently,  the 
work  is  being  handled  by  six  Supply  System  Analysts 
and  three  Supply  System  Clerks.  An  analyaia  of 
actual  production  hours  revealed  that  312  days  (.12H 
of  available  work  time)  were  lost  to  annual  leave  and 
sick  time.  Effectively,  the  office  was  functioning 
one  person  short.  While  overtime  was  not  being 
heavily  used  in  the  office,  what  was  being  used  was 
only  making  up  for  the  effective  loss  of  the  one 
person . 

Another  area  for  consideration  is  that  of  the 
Supply  Syatem  Analysts.  Currently,  all  but  one  of 
the  SSA's  were  brought  into  the  office  as  a  GS-9. 
The  other  analyst  was  hired  originally  as  a  5-7-9 
trainee.  This  SSA  is  functioning  as  well  as  any  of 
the  others  in  ability  to  handle  the  workload.  It  is 
conceivable  that,  as  the  current  analysts 
retire/transfer,  new  analysts  could  be  brought  in  the 
same   manner.    This   procedure   would   allow   for  the 
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posalbility  o£  growth  on  the  30b,  leaa  coat  to  the 
government  during  the  training  period^  add  the  needed 
infuaion  of  younger  ideaa,  and  inatill  an  uplift  in 
general  morale. 

The  intangible  benefits  that  will  be  realized  by 
thia  streaalining  of  the  FHSO  process  will  mean  the 
elimination  of  a  major  bottleneck  in  the  flow  of 
cases  from  the  Fleet  to  the  Item  Managers  and  back  to 
the  fleet.  This  will  not  be  in  terms  of  just  new 
cases  but  in  all  transactions  within  the  QDR  process 
and  will  effect  the  whole  Navy  Supply  System, 
producing  shorter  response  times  that  will  translate 
into  a  better  supply  system  and  improved  cash  flow 
back  to  the  NSF. 


C.   THE  PROPOSED  AUTOMATED  SYSTEM  DESZ6N 

The  long  range  plans  of  FMSO  are  to  install  a 
computer-based  Management  Information  System.  It 
was,  therefore,  decided  that  this  project  would  be 
the  ideal  place  to  start  by  using  a  prototype 
implementation  process.  Under  this  process,  the  user 
and  the  developer  can  work  more  effectively  toward 
the  end  goal  of  achieving  a  viable  aystem.  The 
prototyping  process  allows  for  a  fairly  quickly 
produced   user   product   that   is  a  starting  point  for 
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Qvaluatlnon   and  critical  analysis.   The  developer  can 
then   revise   and  install  a  new  intermediate  version. 
This   flexibility  allows  unforeseen  applications  to  be 
incorportated   into   the  overall  system  with  a  minimum 
of  disruption. 

The  advantages  of  this  approach  are:  1)  The 
system  is  introduced  fairly  quickly;  2)  because  the 
system  is  not  a  final  product,  it  is  easier  for  the 
user  to  learn;  3>  it  forces  structure  to  the 
applications  development  to  allow  changes  to  be  made 
easily  and  quickly  without  complete  rewrites;  4)  it 
allows  the  users  to  realize  their  real  needs  as 
opposed  to  their  preceived  needs;  5)  it  allows  the 
user  to  grow  with  the  system  rather  than  have  it 
handed   to   them  as  one  immense*  overwhelming  package; 

6)  the  end  product  will  be  closer  to  the  actual 
system   requirements   than   other  methods  provide,  and 

7)  it  allows  for  a  smoother  transition  between 
developer  and  user.  This  transition  can  be 
accomplished  smoother  than  with  other  methods  since 
the  user's  staff  has  been  involved  with  the 
development  of  each  version  of  the  system  and  thus 
are  already  familiar  with  the  system.  A  negative 
factor  to  be  considered  is  that  it  can  prove  to  be 
more  expensive  in  terms  of  actual  system  development 
time   than   other   methods.   Also,   there   has  to  be  a 

60 


defini-be  point  at  which  the  in-house  staff  assumes 
reaponaibilitiea  for  any  further  development  and 
Maintenance . 

Figure  20  ia  a  logical  representation  of  the 
proposed  syate».  It  includes  ten  IBM  PC  work 
stations;  two  printers  <one  correspondence-quality 
daisy  wheel  printer  for  sessage  traffic  or  fine 
letter-quality  reports  and  one  high-speed  dot  matrix 
printer  capable  of  producing  15-lnch-wide  reports  for 
internal  use),  and  a  network  system  that  allows  all 
workstations  to  use  a  shared  central  database. 
Initial  prototyping  of  the  system  will  be 
accomplished  at  the  Naval  Postgraduate  School  in  a 
Thesis  by  Ron  Nichols.  In  this  stage  the  network 
will  only  utilize  up  to  four  IBM  PC's  to  aid  in  the 
evaluation  of  the  best  ways  to  handle  the  issues  of 
database  management  protocols.  When  research  and 
development  at  the  Naval  Postgraduate  School  is  felt 
to  be  sufficiently  complete,  personnel  from  FMSO  will 
be  invited  to  evaluate  its  initial  performance  prior 
to  installation.  Additional  IBM  PC's  will  be  added 
during  final  assembly  at  FHSO  to  bring  the  total 
number  of  stations  to  ten.  Further  development  of 
the  system  will  then  be  turned  over  to  FMSO  after  a 
short  in-house,  full  system  evaluation. 
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Logical    RepresentaHon  of  ProDosecJ  Automated  Syste« 
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Figure  21  ahowa  the  preaent  floor  plan  currently 
in  exiatence  in  the  Technical  Branch,  code  9142,  at 
FMSO.  Thia  ia  the  office  into  which  the  ayate*  ia  to 
be  installed.  Figure  22  ahowa  a  propoaed  floor  plan. 
The  propoaed  ayatem  would  allow  the  immediate  firat 
Line  Supervisor,  who  ia  a  working  floor  auperviaor, 
to  have  a  work  station  on  his/her  deak.  Acceaa  to 
the  data  for  management  purpoaea  by  the  aecond  Line 
Superviaor  would  be  through  the  branch  secretary 'a 
work  atation. 

This  network  allows  for  128  work  stations  (eight 
maater  stations  each  handling  up  to  aixteen  uaer 
stationa) .  At  preaent,  only  approximately  13  devicea 
are  currently  planned  to  be  attached.  Follow  on 
applicationa  could  be  conaidered  for  the  adjoining 
officea  in  the  aame  phyaical  locality  and  within  the 
same  branch  <i.e.  codes  9141,  91422  and  9143). 


D.   COST  OF  PROPOSED  SYSTEM 

Table  4  containa  the  list  of  ayatem  components, 
the  quantity  and  total  costs.  Development  time  of 
the  necessary  databaaea  and  initial  application 
programa  will  be  done  aa  a  part  of  a  follow  on  thesis 
that  will  explore  the  queationa  concerning  database 
management  and  network  control. 
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By  using  this  syste*  as  a  research  tool  and 
prototyping  the  installation*  additional  costs 
savings  will  be  realized  in  the  process. 

Training  costs  are  being  offset  by  having  placed 
an  IBM  PC  with  limited  database  in  the  office  for 
personnel  to  experience  and  experiment  with  as  time 
permits.  Having  this  system  physically  in  the  office 
allows  the  personnel  to  become  familar  with  it  and 
helps  to  reinforce  the  change  process  over  time. 

TABLE  4 
COMPONENTS  LIST  OF  WI0P08ED  AUTOMATED  SYSTEM 

QTY      DESCRIPTION PRICE* 

10      IBM  P.C.  w/2  320Kb  Disk  Drives  Slfi,430 

10      Color/Graphics  Adapter  S    1,710 

lO      Color/Graphics  Monitors  $  4,760 

d  PCnet  Network  Adapter  Card  $  5,560 

1  PCnet  Starter  Kit  S  1,490 

400  ft  PCnet  Finished  Cable  -  RG59B/U  Coax  $    200 

1  Tri  Hex  Tool  (To  put  coax  together)  $    200 

1      Model  20  M/M  Omninet  Disk  System 

w/built-in  MIRROR  S  4,068 

1      Disk  Server  for  IBM  P.C.  $    891 

1      Okidata  93  Printer  S    900 

1      Diablo  630  Printer  w/keyboard  $  2,400 

1      Panasonic  N.V.  8200  Video  Recorder      3  1.178 

TOTAL  MS,  787 

•Prices  based  on  current  GSA  contracts  with  the 
manufacturing/retail  companies. 
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E.   AOOXTZONM.  MANAGEMENT  C0N8Z0ERATX0N8 

A  certain  compatibility  and  flexibility  on  the 
part  of  the  uaer  la  aaauaed  in  any  recoaaendation  for 
a  new  aysten.  However,  aa  Hachiavelli  obaerved  in 
1513: 


"There  la  nothing  more  difficult  to  plan, 
more  doubtful  of  aucceaa,  nor  more  dangeroua  to 
manage  than  the  creation  of  a  new  ayatea.  For 
the  initiator  haa  the  enmity  of  all  who  would 
profit  by  the  preaervation  of  the  old  ayatea  and 
merely  lukewarm  defendera  in  thoae  who  would  gain 
by  the  new  one.** 

Beer    fRef    1:     pp.  102-103!]   identified   aome 

problema  in  the  area  of  change.   He  atatea: 

*'Aa  people  begin  to  engage  in  the  change 
activitiea  and  the  magnitude  of  the  emotional  and 
material  inveatment  required  are  firat  realized, 
motivation  and  enthuaiaam  for  the  change  will  be 
aignif icantly  reduced.  For  the  firat  time, 
people  in  the  organization  may  realize  that 
certain  preaent  aatiaf actiona,  auch  aa  the 
pleaaure  of  purauing  old  goala  or  behaving  in 
accuatomed  waya,  will  have  to  be  given  up  if  new 
performance  levela  are  to  be  accompliahed. 

"There  are  typically  four  areaa  in  which 
organizational  membera  may  experience  loaaea  due 
to  change: 


"1.   Loss  of  eo«p«t( 

Moat  changea  place  demanda  on  organizational 
membera  for  new  attitudea,  akilla,  and  behavior 
aa  former  waya  of  doing  thinga  muat  be  diacarded. 
The  aenae  of  competence  which  cornea  from 
aucceaaful  performance  of  old  rolea  la  dlmiahed 
before  inaecurity  and  threat  aaaociated  with  new 
role  demanda  can  be  overcome. 

"2.   Loss  of  rslAtionships. 

Organizational  changea  typically  mean  new 
interaction  patterna  aa  people  are  reaaaigned  or 
new  aettinga  for  deciaion  making  are  created. 
The  loaa  02  familiar  and  valued  relationahipa  and 
the  energy  required  to  work  out  new  onea  ia 
experienced  aa  a  coat  of  change  by  thoae 
affected.  At  the  plant  level,  the  introduction 
of  autonomoua  work  teama  typically  reaulta  in  the 
creation  of  new  relationahipa,  aa  doea  the 
introduction  of  project  or  buaineaa  teama  when  an 
organization  movea  to  matrix. 
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"3.   Lo«s  of  pother. 

There   are   few  organizational  changes  that  do  not 


result   In   a   shift  In  power  and  Influence.   Soae 

?arta    of    the    organization    and    some   role 
ncumbenta   gain   power  while  others  lose  It.   For 


example.   creating   aore   challenging   jobs  on  the 
ihop   floor   reduces   the  traditional 


shop   floor   reduces   the  traditional  power  of  the 
first   line   supervla 
resistance  to  change. 


first   line   supervisor   and   usually   results   In 

:h< 


"4.   Loss  of  SMtrinsic  rswsrds. 

Organizational  changes  result  In  Increased 
conpenaatlon  and  perquisites  < off Ices »  cars, 
parking  spaces,  etc.)  tor  some.  Others  may  loss 
rewards  or  see  fewer  opportunities  for  a 
significant  Increase  In  thea  In  the  future. 

**As  organizational  members  come  face  to  face 
with  these  changes  In  their  psychological 
contract  they  begin  to  lose  motivation  to  change, 
motivation    which   may   have   been   high   In   the 

flannlng     stages.     Organization    Inertia    Is 
ntenslfled." 

The  ability  to  Introduce  change  and  have  It 
accepted  Is  probably  the  moat  challenging  aspect  of  a 
system  developer.  Therefore,  this  study  was 
approached  from  the  standpoint  of  having  to  deal  with 
any  aspect  of  resistance  to  change  and  how  to  handle 
the  resistance  In  a  positive,  productive  manner. 

Since  the  Introduction  of  change  can  be  seen  also 
as  a  process  of  managing  conflict.  It  was  decided  to 
use  Brown's  conflict  management  Intervention 
strategies.  Brown  [Ref  2:  pp.  302-30^  categorizes 
conflict  management  Interventions  Into  four 
categories: 

1.   Rsdirsct  bshavior. 

This  Includes  "redefining  Issues,  raising 
alternative  solutions,  altering  patterns  of 
communication  between  the  parties,  or  revising  the 
Immediate  behavior  of  representatives.** 
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2.  Refraaa  pmrmpmct ivmum 

Refraaing  perapectivea         includea 

"reformulating  party  intersta,  altering  unrealiatic 
aterotypea,  changing  perapectivea  on  the  aituation, 
and  educating  parties  about  the  dynaaica  of 
conflict." 

3.  R»«l locate  r«mourc«s. 

Here  Brown  auggeata  changing  "the  character 
of  the  interdependence  among  the  partiea^  or  alter 
the  reaourcea  available  for  managing  conflict." 

4.  Rvalign  underlying  mtruetural  fore«m. 

Thia  ia  the  proceaa  of  "redefining 
boundariea,  altering  their  permeability,  reviaing 
formal  rulea  and  procedurea,  renegotiating  informal 
norma  and  valuea,  and  refocuaing  organizational 
incentivea  that  influence  conflict." 

Brown   further  offers  some  rules  of  thumb  by  which 
to  manage  conflict  by  intervention: 

"1.  Choose  target  dynamics  on  the 
basis  of  (1)  their  centrality  to  conflict 
problems  and  (2)  the  risks  and  benefits  of 
intervention . 

"2.  Combine  interveners  to  develop 
access,  credibility,  and  resources 
appropriate  to  target  dynamics  and 
interventions . 

"3.  Combine  interventions 
simultaneously  or  in  sequence  to  fit  the 
resources   of   interveners   and  the  demands  of 

the  situation. 

"4.  Use  the  self -reinforcing  quality 
of  conflict  dynamics  to  (1)  interrupt 
patterns  of  representative  interaction,  <2) 
redefine  and  reorganize  interface 
interdependent  representative  .^interactions 
and  interface  developments."  [Kef  3:  pp. 
317-32-^ 
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In  addition  to  this  approach^  a  aeries  of 
meetings  were  scheduled  to  allow  personnel  the 
opportunity  to  react  to  ideas  and  discuss  proposed 
changes.  This  approach  adds  depth  to  the  main 
methodology.  It  allows  a  feeling  of  participation,  a 
greater  degree  of  emotional  commitment  to  the  project 
by  personnel  who  otherwise  could  feel  alienated  and 
decreases  their  resistance  to  the  change. 

Often  overlooked  when  change  has  been  introduced 
is  the  follow-up.   Beers  states: 

"Follow-up  is  the  key  to  sustaining 
motivation,  developing  emotional  support  for 
nanaqers  and  change  agents*  linking,  and 
developing  competence.  The  importance  of 
follow-up  is  supported  by  research  which 
demonstrates  that  consultant  involvement  before 
and  after  team-building  interventions  was 
associated  with  greater  effectiveness  when 
compared  to  team-building  interventions  in  which 
there  was  little  consultant  involvement 
(Friedlander,  1968).  Similarly,  Frohman  (1970) 
reports  that  consultant  help  and  guidance 
increased  the  effectiveness  of  survey  feedback 
interventions. 

"While  it's  not  clear  from  these  reports  what 
the  consultants  did,  it  is  likely  that  they 
helped  people  develop  competence  needed  to  move 
change  along,  brought  people  and  groups  together, 
helped  the  client  to  review  progress,  provided 
emotional  support,  and  in  general  served  as  a 
symbol  and  prod  for  change.  There  is  no  one  way 
to  follow-up.  By  definition,  follow-up 
activities  are  organic  and  can  only  be  planned  in 
response  to  even€a  as  they  develop.  What  can  be 
specified  are  the  managerial  structures  and 
processes  that  have  been  found  useful  in  planning 
and  ensuring  follow-up  (Beckhard  &  Harris, 
1977)."  [kef  4:   pp,  105] 

It  was  because  of  these  assumptions  a  prototype 
approach  was  decided  upon.  This  approach  allows  for 
the     greatest    degree    of    flexibility    in    the 

70 


int.roduct.ion  of  change.  At  every  stage  of  the 
process*  the  necessary  supports  for  reinforcement  are 
present  and  the  total  change  occurs  piece  by  piece 
rather  than  in  the  form  of  what  Gall  ^Ref  5:  pp.  2oJ 
refers  to  as  a  Climax  Design,  in  which  the  largest 
Kost  complex  system  is  introduced  all  at  once.  This 
type  of  approach  generally  produces  systems  that 
exhibit  unexpected  behavior  leading  to  resistance. 
As  a  result,  the  system  suffers. 
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VII.   CONCLUSIONS  QND  RECQWMENDflTIONS 

A.  CONCLUSIONS 

The  analysis  of  a  small  office's  work  flow  within 
a  larger  organizational  setting  has  been  presented  in 
this  study.  FroA  this  analysis,  the  following 
conclusions  have  been  drawn: 

1.  The  adaption  of  a  new  manual  flow  process  has 
been  shown  to  be  a  viable  alternative  to  full 
automation. 

2.  The  work  load  of  the  office  is  increasing  at 
an  average  annual  rate  of  over  51X. 

3.  Because  this  trend  shows  indications  of 
continuing  upward  rather  than  leveling  off  or 
decreasing,  the  manual  processing  of  the  workload 
will  continue  to  be  a  problem  in  the  foreseeable 
future. 

4.  It  is  apparent  that  a  fully  automated  system 
is  the  best  viable  alternative  to  meet  the  needed 
increase  in  productivity  in  the  coming  years. 

B.  RECOMMENDATIONS 

1.  That  the  work  flow  for  the  Defective  Material 
Section  (code  91423)  be  fully  automated. 
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2.  That  the  Supply  Syatem  Analysts  be  provided 
with  a  specific  set  of  job  standards  and  performance 
incentives. 

3.  That  a  GS  5-7-9  training  program  be 
established  to  train  future  Supply  System  Analysts. 
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APPENDIX  A 

This  appendix  contains  complete  module  listings 
and  data  base  files  of  version  1.0  of  the  Interim 
Database  Management  System.  The  modules  are  arranged 
in  logical  order  of  their  position  within  the 
structured  hierarchy.  Included  herein  also  is  a 
general  lower  level  module  stub  used  to  aid  in  the 
development  of  a  higher  level  module. 
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MAIN  MODULE  (MAIN. PRG) 

ERASE 

SET  TALK  OFF 

SET  COLON  OFF 

USE  QDR 

Q   5,  10  SAY  "This  will  take  awhile." 

9  10.  10  SAY  "Please  be  patient." 

(3  15,  10  SAY  "I  will  let  you  know  when  I'm  done." 

DO  CNTR 

ERASE 

(3   5,  10  SAY  "I'm  back.   Everything  is  counted  now 

@  10,  10  SAY  "Shall  we  continue  <Y  or  N)?" 
STORE  1  TO  X 
DO  WHILE  X  <  250 

STORE  X  ♦  1  TO  X 
ENDDO  Pause 
DO  Menu 
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COUNT  MODULE  (CNTR. PRG) 


STORE 

0 

TO 

Mtotal 

STORE 

0 

TO 

Mwork 

STORE 

0 

TO 

Mawtg 

STORE 

0 

TO 

Mjob 

STORE 

0 

TO 

Mprocess 

STORE 

0 

TO 

McatO 

STORE 

0 

TO 

Mcatl 

STORE 

0 

TO 

Mcat2 

STORE 

0 

TO 

Mresponse 

STORE 

0 

TO 

Mcloseout 

STORE 

0 

TO 

Mtime 

STORE 

0 

TO 

Mcount 

STORE 

0 

TO 

Mtran 

STORE 

0 

TO 

Mclose 

STORE 

0 

TO 

Mtech 

STORE 

T 

TO 

Mf  lag 

STORE 

!• 

'•  TO  MiBi 

STORE 

■  • 

•  1 

TO  Mcog 

NOTE   START  OF  COUNT  AND  UPDATE  ROUTINE 

DO  WHILE  .NOT.  EOF 


NOTE   COMPUTATION  OF  HOU  LONG  A  CASE  AWAITS  ACTUAL 
NOTE   PROCESSING  BY  AN  ANALYST 

IF  Datarin  <=  0  .AND.  Intwork  <=  0 

SKIP 

LOOP 
ELSE 

STORE  Mtotal  +  1  TO  Mtotal 

0  23,  10  SAY  "Record  being  evaluated  is  number:"; 
GET  Mtotal 

STORE  Inrwork  -  Date: in  TO  Mwork 

IF  Mwork  <=  0 

STORE  1  TO  Mwork 

ENDIF  Zero  Check 

STORE  Mawtg  -^  Mwork  TO  Mawtg 

STORE  0  TO  Mwork 
ENDIF  Mawtg 
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NOTE   «N«LYST  CODE  EVALUATION  SECTION 

STORE  Tech: code  TO  Mtech 
SELECT  SECONDARY 
USE  BrTechcode 

DO  WHILE  .NOT.  EOF  .AND.  Mflag 
IF  Tech  =  Mtech 

REPLACE  Counter  WITH  Counter  ♦  1 
STORE  F  TO  Mflag 
ELSE 
SKIP 
LOOP 
ENDIF  Techcode 
ENDDO  Not  EOF 
IF  Mflag 

APPEND  BLANK 
REPLACE  Tech  WITH  Mtech 
REPLACE  Counter  WITH  1 
ENDIF  Mflag 


NOTE   60  BACK  TO  PRIMARY  DATABASE  FILE  (QDR) 

NOTE   EVALUATE  THE  COG  CODE  OF  THE  CASE 

SELECT  PRIMARY 

STORE  Cog  TO  Mcog 

STORE  T  TO  Mflag 

SELECT  SECONDARY 

USE  B:Cogcount 

DO  WHILE  .NOT.  EOF  .AND.  Mflag 

IF  Cog  =  Mcog 

REPLACE  Counter  WITH  Counter  ^    1 
STORE  F  TO  Mflag 

ELSE 
SKIP 

ENDIF  Cog  =  Mcog 
ENDDO  Not  EOF 
IF  Mflag 

APPEND  BLANK 

REPLACE  Im  WITH  Mini 

REPLACE  Counter  WITH  1 
ENDIF  Mflag 

NOTE   EVALUATE  THE  ITEM  MANAGER  FIELD  OF  THE  CASE 

STORE  Item:mgr  TO  Mim 
STORE  T  TO  Mflag 
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SELECT  SECONDARV 

USE  B:Imcount 

DO  WHILE  .NOT.  EOF  .AND.  Mflag 

IF  Im  =  Mi» 

REPLACE  Counter  WITH  Counter 
STORE  F  TO  Mflag 

ELSE 
SKIP 

ENDIF  Im  is  Mim 
ENDDO  Not  EOF 
IF  Mflag 

APPEND  BLANK 

REPLACE  Im  WITH  Mim 

REPLACE  Counter  WITH  1 
ENDIF  Mflag 


NOTE   RETURN  TO  THE  PRIMARY  DATftBfiSE  FILE  (QDR) 
NOTE   CHECK  THE  CfiSE  FOR  THE  CATEGORY  fiND  ERROR  TRAP 
NOTE   WRONG  CATEGORY  CODES 

SELECT  PRIMARY 
IF  Category  =  "l" 

STORE  Mcatl  *  1  TO  Mcatl 
ELSE 

IF  Category  =  "2" 

STORE  Mcat2  ■►  1  TO  Mcat2 

ELSE 

STORE  McatO  +  1  TO  McatO 

ENDIF  Cat2 
ENDIF  Catl 


NOTE  EVALUATE  THE  ACTUAL  TIME  IT  TOOK  TO  GET  THE 

NOTE  CASE  PROCESSED  IN  THE  OFFICE  AND  OUT  TO  THE 

NOTE  ITEM  MANAGER  (INITIAL  PROCESSING  TURN  AROUND 

NOTE  TIME) 

IF  Transmit  <=  0 

SKIP 

LOOP 
ELSE 

STORE  Mtran  +  1  TO  Mtran 

STORE  Transmit  -  Inlwork  TO  Mwork 

IF  Mwork  <=  0 

STORE  1  TO  Mwork 

ENDIF  Zero  Check 

STORE  Mjob  ♦  Mwork  TO  Mjob 

STORE  0  TO  Mwork 
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NOTE   EVfiLUATION  OF  ACTUAL  TURN  AROUND  TIME  FROM 
NOTE   ARRIVAL  TO  TRANSMITTAL  OF  CASE 

STORE  Transmit  -  Date: in  TO  Mwork 
IF  Mwork  <=  0 

STORE  1  TO  Mwork 
ENDIF  Zero  Check 

STORE  Mproceaa  +  Mwork  TO  Mprocess 
STORE  0  TO  Mwork 
ENDIF  Transmit  Check 


NOTE   EVALUATION  PROCESS  AS  TO  HOW  LONG  IT  TAKES  THE 
NOTE   ITEM  MANAGER  TO  PROCESS  A  CASE  AND  RETURN  IT  TO 
NOTE   FMSO  FOR  CLOSE  OUT  ACTIONS 

IF  Response  <=  0 

SKIP 

LOOP 
ELSE 

STORE  Mcount  *  1  TO  Mcount 

STORE  Response  -  Transmit  TO  Mwork 

IF  Mwork  <=  0 

STORE  1  TO  Mwork 

ENDIF  Zero  Check 

STORE  Mresponse  >  Mwork  TO  Mresponse 

STORE  0  TO  Mwork 
ENDIF  Response  Check 


NOTE   EVALUATION  OF  HOW  LONG  IT  TAKES  FMSO  TO  CLOSE 
NOTE   A  CASE  OUT  AFTER  RECEIPT  BACK  FROM  THE  ITEM 
NOTE   MANAGER 

IF  Closeout  <=  0 

SKIP 

LOOP 
ELSE 

STORE  Mclose  +  1  TO  Mclose 

STORE  Closeout  -  Response  TO  Mwork 

IF  Mwork  <=  0 

STORE  1  TO  Mwork 

ENDIF  Zero  Check 

STORE  Mcloseout  ♦  Mwork  TO  Mcloseout 

STORE  O  TO  Mwork 
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NOTE   EVALUftTION  ftS  TO  HOW  LONG  IT  TOOK  TO  PROCESS 
NOTE   THE  CASE  FROM  ftRRIVflL  FMSO  UNTIL  IT  WAS  CLOSED 
NOTE   OUT  AND  DISPOSITION  INSTRUCTIONS  ISSUED 

STORE  Closeout  -  Date: in  TO  Mwork 
IF  Mwork  <=  O 

STORE  1  TO  Mwork 
ENDIF  Zero  Check 
STORE  Mtime  +  Mwork  TO  Mtime 
STORE  0  TO  Mwork 
ENDIF  Closeout  Check 
SKIP 
ENDDO  Count 


NOTE  STATISTICS  FROM  THE  DATABASE  ARE  CAPTURED  AND 

NOTE  STORED  TO  DISK  TO  CREATE  A  DYNAMIC  ON  GOING 

NOTE  PROCESS  TO  ELIMINATE  THE  TIME  CONSUMING  PROCESS 

NOTE  OF  COUNTING  EVERY  RECORD  WHENEVER  A  REPORT  IS 

NOTE  NEEDED 

USE  B:QDRSTATS 

REPLACE  Total  WITH  Mtotal  ^  Total 

REPLACE  Awtg  WITH  Mawtg  *    Awtg 

REPLACE  Job  WITH  Mjob  +  Job 

REPLACE  Process  WITH  Mprocess  +  Process 

REPLACE  CatO  WITH  McatO  *  CatO 

REPLACE  Catl  WITH  Mcatl  >  Catl 

REPLACE  Cat2  WITH  Mcat2  *    Cat2 

REPLACE  Response  WITH  Mresponse  +  Response 

REPLACE  Closeout  WITH  Mcloseout  +  Closeout 

REPLACE  Time  WITH  Mtime  ■>■    Time 

REPLACE  Counter  WITH  Mcount  +  Counter 

REPLACE  Tran  WITH  Mtran  +  Tran 

REPLACE  Closed  WITH  Mclosed  *    Closed 

SELECT  PRIMARY 

RETURN 
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MENU  MODULE  (MENU. PR6> 


STORE  T  TO  Continue 
STORE  '•  ••  TO  Reply 
SET  TALK  OFF 
SET  COLON  OFF 

DO  WHILE  Continue 
ERASE 

9   4,  35  SAY  "MAIN  MENU" 
Q   6,  19  SAY  "Select  and  enter  the  number  of  your"; 

"choice: " 
(3   a,  21  SAY  "1.   APPEND  Records" 
9   9,  21  SAY  "2.   EDIT  Records 

0  11,  21  SAY  "3.   Produce  Turn  Around  Time  Report." 
0  12,  21  SAY  "4.   Produce  System  Analyst  Case"; 

"Load  Report." 
9  13,  21  SAY  "5.   Produce  Complete  Management": 

"Report." 
Q  15.  21  SAY  "6.   Quit  dBase  II  Program." 
READ 
DO  CASE 

CASE  REPLY  =  "1" 

DO  ADDREC 
CASE  REPLY  =  "2" 

DO  QDREDIT 
CASE  REPLY  =  "3" 

DO  TAT 
CASE  REPLY  =  "4" 

DO  CASELOAD 
CASE  REPLY  =  "5" 

DO  MGR 
CASE  REPLY  =  "S" 

QUIT 
OTHERWISE 
LOOP 
ENDCASE  Reply 
ENDDO  Continue 
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GENERAL  MODULE  STUB 


STORE  T  TO  Ccontinue 
DO  WHILE  Continue 

ERASE 

9   5.  10  SAY  "This  is '" 

Q  10,  10  SAY  "Shall  we  continue  <Y  or  N)?" 

WAIT  to  Output 

IF  ! (Output)  =  'Y' 

STORE  F  TO  Continue 
ELSE 

LOOP 
ENDIF  Ooutput  Check 
ENDDO  Continue 
RETURN 
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RECORD  EDITING  MODULE  (QDREDIT. PR6) 

SELECT  PRIMARY 
USE  B:Qdr  INDEX  B: Cases 
STORE  T  TO  Mflagl 
STORE  T  TO  Mflag2 
DO  WHILE  Mflagl 
ERASE 

STORE  ••  ••  TO  Mcasenr 

DO  WHILE  Mflag2 

i3  20,  20  SAY  "ENTER  CASE  NUMBER:  "; 

GET  Mcasenr  PICTURE  "XXXXXXXXX" 
READ 
IF  Mcasenr  =  " 

STORE  F  TO  Mflagl 
STORE  F  TO  Mflag2 
LOOP 
ENDIF  Blank  case  number 
FIND  ScMcasenr 
IF  #  =  0 

0  22,  20  SAY  "CASE  NOT  FOUND,  PLEASE  REENTER" 
ELSE 

STORE  F  TO  Mflag2 
ENDIF  Record  not  found 
ENDDO  Mflag2 
IF  .NOT.  Mflagl 

LOOP 
ENDIF  Mflagl 

STORE  Date: in  TO  Cdate:in 
STORE  In:work  TO  Cin:work 
STORE  Case:nr  TO  Cease :nr 
STORE  Cog  TO  Ccog 
STORE  Tech: code  TO  Ctech:code 
STORE  Item:mgr  TO  Citem:mgr 
STORE  Category  TO  Ccategory 
STORE  Transmit  TO  Ctransmit 
STORE  Response  TO  Cresponse 
STORE  Closeout  TO  Ccloseout 
ERASE 

GET  DATE: IN  PICTURE  "9999" 
GET  IN: WORK  PICTURE  "9999" 
GET  CASE:NR  PICTURE; 

GET  COG  PICTURE  "XX" 
GET  TECH:CODE  PICTURE; 


Q 

10, 

5 

SAY  "DATE: IN 

@ 

11, 

5 

SAY  "IN:WORK 

(S 

12. 

5 

SAY  "CASE:NR 
"XXXXXXXXX" 

0 

13, 

5 

SAY  "COG 

@ 

14, 

5 

SAY  "TECH: CODE 

B3 


Q  15,  5  SAY  "ITEMIMGR   "  GET  ITEMrMGR  PICTURE; 
"XXXX" 

13  16,  5  SAY  "CATEGORY   "  GET  CATEGORY  PICTURE  "X" 
0  17,  5  SAY  "TRANSMIT   "  GET  TRANSMIT  PICTURE 

"9999" 
0  18,  5  SAY  "RESPONSE   "  GET  RESPONSE  PICTURE 

"9999" 
Q  19,  5  SAY  "CLOSEOUT   "  GET  CLOSEOUT  PICTURE 

"9999" 
READ 

IF  P. COG  <>  CCOG 
SELECT  SECONDARY 
USE  BrCOGCOUNT 
STORE  T  TO  M£lag 
STORE  O  TO  Mcounter 
DO  WHILE  .NOT.  EOF  .AND.  Mflag 
IF  CCOG  =  COG 

REPLACE  Counter  WITH  Counter  -  1 
STORE  Mcounter  +  1  TO  Mcounter 
ELSE 

IF  P. COG  =  S.COG 

REPLACE  Counter  WITH  Counter  +  1 
STORE  Mcounter  +  1  TO  Mcounter 
ENDIF  P  =  S 
ENDIF  CCOG  =  COG 
IF  Mcounter  =  2 

STORE  F  TO  Mflag 
ENDIF  Mcounter  =  2 
SKIP 
ENDDO  NOT  EOF 
IF  Mflag 

APPEND  BLANK 

REPLACE  S.COG  WITH  P. COG 
REPLACE  Counter  WITH  1 
ENDIF  Mflag 
ENDIF  <> 

IF  P. TECH: CODE  <>  CTECH:CODE 
SELECT  SECONDARY 
USE  B:Techcode 
STORE  T  TO  Mflag 
STORE  O  TO  Mcounter 
DO  WHILE  .NOT,  EOF  .AND.  Mflag 
IF  CTECH:CODE  =  TECH 

REPLACE  Counter  WITH  Counter  ^  1 
STORE  Mcounter  >  1  TO  Mcounter 
ELSE 

IF  TECH  =  TECH: CODE 

REPLACE  Counter  WITH  Counter  *  1 


84 


STORE  Mcounter  +  1  TO  Mcountar 
ENDIF  S  =  P 
ENDIF  CTECHrCODE  =  TECH 
IF  Mcounter  =  2 

STORE  F  TO  Mflag 
ENDIF  Mflag 
SKIP 
ENDDO  While  Not  EOF 
IF  Mflag 

APPEND  BLANK 

REPLACE  TECH  WITH  TECHzCODE 
ENDIF  Mflag 
ENDIF  TECH: CODE 
IF  P.ITEMtMGR  <>  CITEM:MGR 
SELECT  SECONDARY 
USE  B:Imcount 
STORE  T  TO  Mflag 
STORE  0  TO  Mcounter 
DO  WHILE  .NOT.  EOF  .AND.  Mflag 
IF  CITEM:MGR  =  IM 

REPLACE  Counter  WITH  Counter  -  1 
STORE  Mcounter  +  1  TO  Mcounter 
ELSE 

IF  IM  =  ITEM:MGR 

REPLACE  Counter  WITH  Counter  -  1 
STORE  Mcounter  +  1  TO  Mcounter 
ENDIF  IM  =  ITEM:MGR 
ENDIF  CITEMIMGR  =  IM 
IF  Mcounter  =  2 

SOTRE  F  TO  Mflag 
ENDIF  Mcounter  =  2 
SKIP 
ENDDO  Not  EOF 
IF  Mflag 

APPEND  BLANK 

REPLACE  IM  WITH  ITEMlMGR 
REPLACE  Counter  WITH  1 
ENDIF  Mflag 
ENDIF  <> 

SELECT  SECONDARY 
USE  B:B  Qdrstats 
IF  CRESPONSE  <>  0  .AND.  P. RESPONSE  =  O 

REPLACE  Counter  WITH  Counter  -  1 
ELSE 

IF  CRESPONSE  =  0  .AND.  P. RESPONSE  >  O 

REPLACE  Counter  WITH  Counter  ■>■    1 
ENDIF 
ENDIF  Counter 
IF  CTRANSMIT  <>  0  .AND.  P. TRANSMIT  =  0 
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REPLACE  Tran  WITH  Tran  -  1 
ELSE 

IF  CTRANSMIT  =  O  .AND.  P. TRANSMIT  =  O 

REPLACE  Tran  WITH  Tran  *  1 
ENDIF 
ENDIF  Tran 
IF  CCLOSEOUT  <>  0  .AND.  P.CLOSEOUT  =  0 

REPLACE  Closed  WITH  Closed  -  1 
ELSE 

IF  CCLOSEOUT  =  0  .AND.  P.CLOSEOUT  >  O 

REPLACE  Closed  WITH  Closed  *  1 
ENDIF 
ENDIF  Closed 

IF  P. CATEGORY  <>  CCATEGORY 
DO  CASE 

CASE  CCATEGORY  =  "1" 

REPLACE  Catl  WITH  Catl  -  1 
CASE  CCATEGORY  =  "2" 

REPLACE  Cat2  WITH  Cat2  -  1 
OTHERWISE 

REPLACE  CatO  WITH  CatO  -  1 
ENDCASE 
DO  CASE 

CASE  CATEGORY  =  "l" 

REPLACE  Catl  WITH  Catl  *    1 
CASE  CATEGORY  =  "2" 

REPLACE  Cat2  WITH  Cat2  +  1 
OTHERWISE 

REPLACE  CatO  WITH  CatO  *  1 
ENDCASE 
ENDIF  CATEGORY  <> 

STORE  CINIWORK  -  CDATErIN  TO  Cawtg 
STORE  CTRANSMIT  -  CINcWORK  TO  Cjob 
STORE  CTRANSMIT  -  CDATErIN  TO  Cprocess 
STORE  CCLOSEOUT  -  CRESPONSE  TO  Cclosed 
STORE  CRESPONSE  -  CTRANSMIT  TO  Cresponse 
STORE  CCLOSEOUT  -  CDATErIN  TO  Ctime 
STORE  INrWORK  -  DATErIN  TO  Mawtg 
STORE  TRANSMIT  -  INrWORK  TO  M^ob 
STORE  TRANSMIT  -  DATErIN  TO  Mprocess 
STORE  RESPONSE  -  TRANSMIT  TO  Mresponse 
STORE  CLOSEOUT  -  RESPONSE  TO  Mcloseout 
STORE  CLOSEOUT  -  DATErIN  TO  Mtime 
IF  Cawtg  =  0 

STORE  1  TO  Cawtg 
ELSE 

IF  Cawtg  <  0 

STORE  0  TO  Cawtg 
ENDIF  <  0 
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ENDIF  Cawtg  =  0 


IF    Cjob 

= 

0 

STORE 
CI  <?c 

1 

TO    Cj 

Ob 

IF    Cjob 

<    0 

STORE  0  TO  C3ob 

ENDIF  <  0 
ENDIF  Cjob  =  0 
IF  Cprocess  =  0 

STORE  1  TO  Cprocess 
ELSE 

IF  Cprocess  <  0 

STORE  0  TO  Cprocess 

ENDIF  Cprocess  <  O 
ENDIF  Cprocess  =  O 
IF  Cclosed  =  0 

STORE  1  TO  Cclosed 
ELSE 

IF  Cclosed  <  O 

STORE  0  TO  Cclosed 

ENDIF  Cclosed  <  O 
ENDIF  Cclosed  =  0 
IF  Cresponse  =  0 

STORE  1  TO  Cresponse 
ELSE 

IF  Cresponse  <  0 

STORE  0  TO  Cresponse 

ENDIF  Cresponse  <  0 
ENDIF  Cresponse  =  0 
IF  Ctime  =  0 

STORE  1  TO  Ctime 
ELSE 

IF  Ctirae  <  0 

STORE  0  TO  Ctime 

ENDIF  Ctime  <  0 
ENDIF  Ctime  =  O 
IF  Mawtg  =  0 

STORE  1  TO  Mawtg 
ELSE 

IF  Mawtg  <  0 

STORE  0  TO  Mawtg 

ENDIF  Mawtg  <  0 
ENDIF  Mawtg  =  O 
IF  M^ob  =  0 

STORE  1  TO  M3ob 
ELSE 

IF  M^ob  <  O 

STORE  0  TO  M^ob 

ENDIF  Mjob  <  0 
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ENDIF  Mjob  =  O 
IF  Mprocesa  =  0 

STORE  1  TO  Mprocess 
ELSE 

IF  Mprocess  <  0 

STORE  0  TO  Mprocess 

ENDIF  Mprocess  <  0 
ENDIF  Mprocess  =  0 
IF  Mresponse  =  0 

STORE  1  TO  Mresponse 
ELSE 

IF  Mresponse  <  O 

STORE  O  TO  Mresponse 

ENDIF  Mresponse  <  0 
ENDIF  Mresponse  =  0 
IF  Mcloseout  =  0 

STORE  1  TO  Mcloseout 
ELSE 

IF  Mcloseout  <  O 

STORE  0  TO  Mcloseout 

ENDIF  Mcloseout  <  0 
ENDIF  Mcloseout  =  0 
IF  Mtime  =  0 

STORE  1  TO  Mtime 
ELSE 

IF  Mtime  <  0 

STORE  0  TO  Mtime 

ENDIF  Mtime  <  0 
ENDIF  Mtime  =  O 

REPLACE  Awtg  WITH  Awtg  >  Mawtg  -  Cawtg 
REPLACE  Job  WITH  Job  +  Mjob  -  Cjob 

REPLACE  Process  WITH  Process  +  Mprocess  -  Cprocess 
REPLACE    Response    WITH   Response   +   Mresponse 
Gresponse 

REPLACE    Closeout    WITH   Closeout   +   Mcloseout 
Ccloseout 

REPLACE  Time  WITH  Time  *    Mtime  -  Ctime 
STORE  T  TO  Mflag2 
SELECT  PRIMARY 
ENDDO  Mfiagl 
RETURN 
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TURN  ftROUND  TIME  MODULE  (TftT. PRG> 

SELECT  SECONDARY' 

USE  BrQdrstats 

STORE  Process/Total  »  1.00  TO  Mtat 

STORE  Awtg/Tran  *  1.00  TO  Maapt 

STORE  Job/Total  »  1.00  TO  Mapt 

STORE  Response/Counter  »  1.00  TO  Mimr 

STORE  Closeout/Closed  •  1.00  TO  Mcot 

STORE  Time/Counter  •  1.00  TO  Mtime 

STORE  T  TO  Crt 

STORE  T  TO  Continue 

DO  WHILE  Continue 
ERASE 
Q   5,  10  SAY  "Do  you  want  a  printed  report  *'+; 

••<Y  or  N)?"  GET  Reply  PICTURE  "X" 
READ 
DO  CASE 

CASE  I (Reply)  =  "Y" 
ERASE 

SET  PRINT  ON 
SET  SCREEN  OFF 
SET  FORMAT  TO  PRINT 
STORE  F  TO  Crt 
STORE  F  TO  Continue 
CASE  ! (Reply)  =  "N" 

STORE  F  TO  Continue 
OTHERWISE 
LOOP 
ENDCASE  Optional  print 
ENDDO  Continue 
ERASE 
i3   5,  21  SAY  "TURN  AROUND  TIME  REPORT  FOR  CODE"; 

"91423" 
Q   7,  10  SAY  "The  average  turn  around  time  to  "*; 

"date  is "+STR(Mtat, 6, 2) 

9   8,  10  SAY  "The  average  awaiting  process  time  "+ 

"is  "+STR(Maapt,6,2) 

(3   9,  10  SAY  "The  average  processing  time  " -^  ; 

"is  "+STR(Mapt,6,2) 

(3  10,  10  SAY  "The  average  time  awaiting  item  "♦; 

"manager  response  is  "+STR (Mimr , 6, 2) 
Q  11,  10  SAY  "The  average  time  to  close  out  a  "+; 

"case  is " +STR ( Mcot , 6 , 2) 

i3  13,  10  SAY  "The  average  turn  around  time  of  "*; 
"a  case  from" 
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Q 

14. 

0 

16, 

Q 

17, 

0 

la. 

13 

19, 

10  SAY  "arrival  at  FMSO  to  final  close  "*; 

"out  is "+STR<Mtime,6,2) 

10  SAY  "The  total  number  of  cases  in  the  " 

"database  is  .  .  .  "+STR<Total , 6, 0) 
10  SAY  "The  total  number  of  cases  sent  to 

"item  managers  is  " +STR<Tran, 6, 0) 
10  SAY  "The  total  cases  responded  to  by  "+ 

"item  managers  is  "+STR<Counter, 6, 0) 
10  SAY  "The  total  cases  closed  out  to  "*: 

"date  are  "-STR (Closed , 6, 0) 

STORE  T  TO  Continue 
DO  WHILE  Continue 
IF  Crt  =  T 

Q  22,  10  SAY  "Do  you  wish  to  continue  "■>■; 

"<Y  or  N)?"  GET  Reply  PICTURE  "X" 
READ 

IF  ! (Reply)  =  "Y" 
SELECT  PRIMARY 
DO  Menu 
ELSE 

LOOP 
ENDIF  Reply 
ELSE 
EJECT 

SET  PRINT  OFF 
SET  SCREEN  OM 
SET  FORMAT  TO  SCREEN 
ENDIF  Crt 
9  15,  10  SAY  "Do  you  wish  to  continue  "+; 

"(Y  or  N)?"  GET  Reply  PICTURE  "X" 
READ 

IF  ! (Reply)  =  "Y" 
SELECT  PRIMARY 
DO  Menu 
ELSE 

LOOP 
ENDIF  Reply 
ENDDO  Continue 
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SYSTEM  ftNftLYST  CASE  LOAD  MODULE  (CASELOAD. PRO) 


STORE  T  TO  Crt 
STORE  T  TO  Continue 
STORE  0  TO  Mpc 
STORE  0  TO  Macl 
STORE  0  TO  Manal 
STORE  ••  "  TO  Reply 

SELECT  SECONDARY 

USE  B:Qdrstat3 

ERASE 

9   8,  10  SAY  "How  many  analyst  are  currently  " * ; 

"assigned?  "  GET  Manal  PICTURE  "9" 
0  10,  10  SAY  "Do  you  want  a  printed  report  "*; 

"<Y  or  N)?  "  GET  Reply  PICTURE  "X" 
READ 
STORE  Total/Manal  »  1.00  TO  Macl 

DO  WHILE  Continue 
ERASE 
DO  CASE 

CASE  ! (Reply)  =  "Y" 
ERASE 

SET  PRINT  ON 
SET  SCREEN  OFF 
SET  FORMAT  TO  PRINT 
STORE  F  TO  Crt 
STORE  F  TO  Continue 
CASE  ! (Reply)  =  "N" 

STORE  F  TO  Continue 
OTHERWISE 
LOOP 
ENDCASE  Optional  print 
ENDDO  Continue 

ERASE 

i3   5.  23  SAY  "SUPPLY  SYSTEM  ANALYST  CASE  LOAD  REPORT- 
SELECT  PRIMARY 
USE  B:Qdrstats 
SELECT  SECONDARY 
USE  B:Techcode 
SORT  ON  Tech  TO  B:Sortfile 
SELECT  SECONDARY 
USE  B:Sortfile 
STORE  7  TO  Mcntr 

DO  WHILE  .NOT.  EOF  .AND.  Mcntr  <  24 
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STORE  Mcntr  -•■  1  TO  Mcntr 

STORE  Counter/Total  •  100.00  TO  Mpc 

@  Mcntr,  10  SAY  "'Total  cases  processed  to  date  "*; 

"by  analyst  "♦STR  (Tech.  2  ,0) -^•' :   "*; 

STR<  Counter,  6,0)+"   "+STR  <Mpc,  5  ,  2)  +"?J" 
SKIP 
ENDDO  While  not  EOF  and  Mcntr  <  24 

@  Mcntr+3,  29  SAY  "The  analyst  case  load  is: 

-►STR<Macl,7,2) 
STORE  T  TO  Continue 

DO  WHILE  Continue 
IF  Crt  =  T 

9  22,  10  SAY  "Do  you  wish  to  continue  (Y  or  N)?" 

GET  Reply  PICTURE  "X" 
READ 

IF  ! (Reply)  =  "Y" 
SELECT  PRIMARY 
DO  Menu 
ELSE 

LOOP 
ENDIF  Reply 
ELSE 
EJECT 

SET  PRINT  OFF 
SET  SCREEN  ON 
SET  FORMAT  TO  SCREEN 
ENDIF  Crt 
a  15,  10  SAY  "Do  you  wish  to  continue  (Y  or  N)?"; 

GET  Reply  PICTURE  "X" 
READ 

IF  ! (Reply)  =  "Y" 
SELECT  PRIMARY 
DO  Menu 
ELSE 

LOOP 
ENDIF  Reply 
ENDDO  Continue 
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COMPLETE  MfiNftGEMENT  REPORT  MODULE  (MGR. PRG) 

SELECT  SECONDARV 

USE  B:Qdrstat3 

STORE  Process/Total  •  1.00  TO  Mtat 

STORE  Awtg/Tran  »  1.00  TO  Maapt 

STORE  Job/Total  •  1.00  TO  Mapt 

STORE  Response/Counter  •  1.00  TO  Mimr 

STORE  Closeout/Closed  *  1.00  TO  Mcot 

STORE  Time/Counter  •  1.00  TO  Mtime 

STORE  Total  -  Tran  TO  Mtoh 

STORE  Counter  -  Closed  TO  Mtip 

STORE  Tran  -  Counter  TO  Mso 

STORE  0  TO  Mpc 

STORE  0  TO  Manai 

STORE  Total/Manal  »  1.00  TO  Macl 

STORE  "  "  TO  Reply 

STORE  T  TO  Crt 

STORE  T  TO  Continue 

DO  WHILE  Continue 
ERASE 
i3  12,  10  SAY  "Do  you  want  a  printed  report  "  +  ; 

•'<Y  or  N)?  "  GET  Reply  PICTURE  "X" 
9  14,  10  SAY  "How  many  analyst  are  currently  "^ 

"assigned?  "  GET  Manal  PICTURE  "9" 
READ 

DO  CASE 

CASE  !  (Reply)  =  "Y" 

ERASE 

SET  PRINT  ON 

SET  SCREEN  OFF 

SET  FORMAT  TO  PRINT 

STORE  F  TO  Crt 

STORE  F  TO  Continue 

STORE  5  TO  Mcnt 
CASE  '(Reply)  =  "N" 

STORE  F  TO  Continue 

STORE  1  TO  Mcnt 
OTHERWISE 

LOOP 
ENDCASE  Optional  print 

ERASE 

(3   Mcnt.   21   SAY   "MANfiGEMENT   REPORT  ON  CODE 
914£3" 
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®   Mcnt>2,   21   SAY   "♦♦«   flVEROGE   PROCESSING 
TIMES  ♦♦♦" 

©  Mcnt+3,   5  SAY  "The  average  initial  turn  "+; 

"around  time  is "; 

■^STR<Mtat,6,2) 
@  Mcnt  +  4,   5  SAY  "The  average  awaiting  process  "  <■ ; 

"time  is "  +  ; 

STR<Maapt,6.2) 
Q  Mcnt  +  5,   5  SAY  "The  average  processing  time  " ■>■ ; 

"is '•*; 

STR<Mapt,6,2) 
0  Mcnt+6,   5  SAY  "The  average  time  awaiting  "*; 

"manager  response  is.  .  .  "-»•; 

STR<Mimr,6,2) 
13  Mcnt*7,   5  SAY  "The  average  time  to  close  out  "+; 

"a  case  is "^; 

STR<Mcot.6,2) 
0  Mcnt  +  9,   5  SAY  "The  average  turn  around  time  "  ■»■ ; 

"of  a  case  from" 
9  Mcnt*10,  5  SAY  "arrival  at  FMSO  to  final  " ^ ; 

"close  out  is "+: 

STR<Mtime.6,2) 

Q   Mcnt--12.21  SAY  "♦♦♦  QDR  CftSES  STftTUS  REPORT 
♦♦♦■ 

Q  Mcnt-^13,  5  SAY  "Total  number  of  cases  in  "+; 
"process "+; 

STR<Mtoh,S,0) 
@  Mcnt*14,  5  SAY  "Total  number  of  cases  "*; 

"transmitted  to  item  manager"-^; 

STR<Tran,6,0) 
9  Mcnt+15,  5  SAY  "Total  number  of  cases  on  the"+; 

"database "  +  ; 

STR<Total ,6,0) 
©  Mcnt*17,  5  SAY  "Total  cases  in  close  in  close  "+; 

"out  process. "♦; 

STR<Mtip,6.0) 
9  Mcnt-^18,  5  SAY  "Total  cases  closed  "^; 

"out "^j 

STR<Closed,6,0) 
9  Mcnt*19,  5  SAY  "Total  number  of  cases  " -^ , 

"returned  from  item  manager.  .  .  "*; 

STR< Counter, 6,0) 
9  Mcnt>21,  5  SAY  "Total  number  of  cases  still  "+; 

"out  to  item  manager.  .  .  "*; 

STR<Mso,6,0) 

DO  WHILE  Crt 

9  24,  10  SAY  "Do  a  <Carriage  Return>  to  continue" 
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WAIT 

STORE  F  TO  Crt 

STORE  0  TO  Mcnt 

ERASE 
ENDDO  Crt 
IF  ! (Reply)  =  "N" 

STORE  T  TO  Crt 
ENDIF  Reply 

9   Mcnt*3,   23   SAY   "♦♦♦   SUPPLY  ANfiLYST  CASE 
LOAD  ♦♦♦■ 

STORE  Mcnt  >  5  TO  Mcnt 

SELECT  PRIMARY 

USE  B:Qdr3tat3 

SELECT  SECONDARY 

USE  B:Techcode 

SORT  ON  Tech  TO  Sortfile 

SELECT  SECONDARY 

USE  Sortfile 

IF  Crt  =  T 

DO  WHILE  .NOT.  EOF  .AND.  <  22 
STORE  Mcnt  -^  1  TO  Mcnt 
STORE  Counter/Total  »  100.00  TO  Mpc 
@  Mcnt,  5  SAY  "Total  cases  processed  to  "^; 

"date  by  analyst  #"  +  STR  (Tech  .  2  .  0) -^ ; 
'•:   " +  STR(  Counter,  6,  O )  ■^"   "  +  ; 
STR(Mpc,5,2)*"%" 
SKIP 
ENDDO  Not  EOF  or  page  overflow 
ENDIF  Crt 

0  Mcnt-^2,  10  SAY  "The  average  analyst  total  "*; 

"case  load  to  date  is:  "+STR ( Macl , 7, 2) 

IF  Crt  =  T 

STORE  2  TO  Mcnt 

9  24,  10  SAY  "Do  a  <Carriage  Return>  to  continue" 

WAIT 

ERASE 
ELSE 

STORE  5  TO  Mcnt 

EJECT 
ENDIF  Crt 

t3   Mcnt,   18   SAY   ''♦«♦  CASE  LOAD  BREAKDOWN  BY 
COG  ♦♦♦■ 

SELECT  SECONDARY 
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USE  B:  Cogcount 

SORT  ON  Cog  TO  Sortcog 

SELECT  SECONDARY 

USE  Sortcog 

STORE  Mcnt  +  3  TO  Mcnt 

IF  Crt  =  T 

DO  WHILE  .NOT.  EOF 
IF  Mcnt  <  22 

STORE  Mcnt  -^  1  TO  Mcnt 

9  Mcnt,  10  SAY  "Total  cases  processed  to  "+; 
"date  for  COG  " ^S (COG , 1 , 2) *" :   ">; 
STRCCounter ,6,0) 
SKIP 
ELSE 

STORE  2  TO  Mcnt 

(3  24,  10  SAY  "Do  a  <Carriage  Return>  to  "*; 

"continue" 
WAIT 
ERASE 
ENDIF  Screen  overflow 
ENDDO  Not  EOF 
ELSE 

DO  WHILE  .NOT.  EOF 
IF  Mcnt  <  54 

STORE  Mcnt  >  1  TO  Mcnt 

9  Mcnt,  10  SAY  "Total  cases  processed  to  "+; 
"date  for  COG  "+S<Cog , 1 , 2) *" :   "*; 
STR  <  Counter ,6,0) 
SKIP 
ELSE 

STORE  5  TO  Mcnt 
EJECT 
ENDIF  Page  overflow 
ENDDO  Not  EOF 
ENDIF  Crt 
IF  Crt  =  T 

STORE  2  TO  Mcnt 

0  23,  10  SAY  "END  OF  COG  REPORT" 

i3  24,  10  SAY  "Do  a  <Carriage  Return>  to  continue" 
WAIT 
ERASE 
ELSE 

STORE  5  TO  Mcnt 
EJECT 
ENDIF  Crt 
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Q   Mcnt.   15   SAY   "♦♦«  CftSE  BREfiKDOWN  BY  ITEM 

••■»■? 

"MANAGER   ♦♦♦" 

SELECT  SECONDARV 

USE  B:Iracount 

SORT  ON  Im  TO  Sortim 

SELECT  SECONDARY 

USE  Sortim 

STORE  Mcnt  +  3  TO  Mcnt 

IF  Crt  =  T 

DO  WHILE  .NOT.  EOF 
IF  Mcnt  <  22 

STORE  Mcnt  +  1  TO  Mcnt 

0  Mcnt,  10  SAY  "Total  cases  processed  to  " * ; 
"date  for  ••*S(  Im  ,  1 ,  4) +"  :   "  +  ; 
STR  <  Counter ,6,0) 
SKIP 
ELSE 

STORE  2  TO  Mcnt 

9  24,  10  SAY  "Do  a  <Carriage  Return>  to  "*; 

"continue" 
WAIT 
ERASE 
ENDIF  Screen  overflow 
ENDDO  Not  EOF 
ELSE 

DO  WHILE  .NOT.  EOF 
IF  Mcnt  <  54 

STORE  Mcnt  +  1  TO  Mcnt 

0  Mcnt,  10  SAY  "Total  cases  processed  to  ">; 
date  for  " *5 < Im , 1 , 4) +" :   "*; 
STR<Counter ,6,0) 
SKIP 
ELSE 

STORE  5  TO  Mcnt 
EJECT 
ENDIF  Page  overflow 
ENDDO  Not  EOF 
ENDIF  Crt 

IF  Crt  =  T 

STORE  2  TO  Mcnt 

"3  23,  10  SAY  "End  of  item  manager  report" 

0  24,  10  SAY  "Do  a  <Carriage  Return>  to  continue' 

WAIT 

ERASE 
ELSE 
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STORE  5  TO  Mcnt 
EJECT 
ENDIF  Crt 

Q  Mcnt,  10  SAY  "The  database  shows  a  total  of  "; 

+STR<Catl,6,0)+"  category  I  QDRs." 
9  Mcnt+2,  10  SAY  "The  database  shows  a  total  of  "; 

■^STR<Cat2,6.0)+"  category  II  QDRs." 
Q  Mcnt+6,  10  SAY  "There  are  a  total  of  ">; 

••STR<Cat0,6,0) +"  cases  in  the"-^; 

"  database" 
@  Mcnt+7,  10  SAY  "that  are  not  identified  as  "*; 

"either  category  I  or  II." 

IF  Crt  =  T 

9  23,  10  SAY  "END  OF  CATEGORY  REPORT" 

9  24,  10  SAY  "Do  a  <Carriage  Return>  to  continue" 

WAIT 

ERASE 

SELECT  PRIMARY 

USE  B:QDR 

DO  Menu 
ELSE 

EJECT 

SET  PRINT  OFF 

SET  SCREEN  ON 

SET  FORMAT  TO  SCREEN 

SELECT  PRIMARY 

USE  B:QDR 

DO  Menu 
ENDIF  Crt 
ENDDO  Continue 
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APPEND  RECORDS  TO  THE  DATABASE  (ADDREC. PRG) 

SET  TALK  OFF 

USE  B:Qdrtemp 

APPEND 

ERASE 

@  5,  15  SAY  '"UPDATING  STA5TICS  FILE,  PLEASE  STAND  "; 

"BY" 
USE    B:QdrteBip 
DO    CNTR 

SELECT  PRIMARY 
USE  B:Qdr 

INDEX  ON  Caselnr  TO  B: CASES 
APPEND  FROM  B:Qdrtemp 
SET  SCREEN  OFF 
SELECT  SECONDARY 
USE  BiQdrtemp 
DELETE  ALL 
PACK 

SELECT  PRIMARY 
SET  SCREEN  ON 
RETURN 
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DATABASES  USED  IN  VERSION  1.0 


STRUCTURE  FOR  FILE: 

B: 

QDR.DBF 

NUMBER  ( 

3F  RECORDS: 

01252 

DATE  OF 

LAST  UPDATE: 

01/01/80 

PRIMARY 

USE  DATABASE 

FLD 

NAME 

TYPE  WIDTH    D 

001 

DATE: IN 

N 

004 

002 

IN:WORK 

N 

004 

003 

CASE:NR 

C 

009 

004 

COG 

C 

002 

005 

TECH:CODE 

N 

002 

006 

ITEM:MGR 

C 

004 

007 

CATEGORY 

C 

001 

008 

TRANSMIT 

N 

004 

009 

RESPONSE 

N 

004 

010 

CLOSEOUT 

N 

004 

•*  TOTAL  •• 

00039 

STRUCTURE  FOR  FILE: 

B: 

QDRTEMP.DBF 

NUMBER  ( 

DF  RECORDS: 

00000 

DATE  OF 

LAST  UPDATE: 

01/01/80 

PRIMARY 

USE  DATABASE 

FLD 

NAME 

TYPE  WIDTH 

001 

DATE: IN 

N 

004 

002 

IM:WORK 

N 

004 

003 

CASE:NR 

C 

009 

004 

COG 

C 

002 

005 

TECH: CODE 

N 

002 

006 

item:mgr 

C 

004 

007 

CATEGORY 

c 

001 

008 

TRANSMIT 

N 

004 

009 

RESPONSE 

N 

004 

010 

CLOSEOUT 

N 

004 

Oil 

FLAG 

C 

001 

*»  TOTAL  •» 

00040 

DEC 
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STRUCTURE  FOR  FILE:   B : QDRSTATS . DBF 
NUMBER  OF  RECORDS:    00001 
DATE  OF  LAST  UPDATE:  01/01/80 
PRIMARY  USE  DATABASE 

DEC 


FLD 

NAME 

TYPE 

WIDTH 

001 

TOTAL 

N 

010 

002 

AWTG 

N 

010 

003 

JOB 

N 

010 

004 

PROCESS 

N 

010 

005 

CATO 

N 

010 

006 

CATl 

N 

010 

007 

CAT2 

N 

010 

008 

RESPONSE 

N 

010 

009 

CLOSEOUT 

N 

010 

010 

TIME 

N 

010 

Oil 

COUNTER 

N 

010 

012 

TRAN 

N 

010 

013 

CLOSED 

N 

010 

*•  TOTAL  »» 

00131 

STRUCTURE  FOR  FILE: 

NUMBER  OF  RECORDS: 

DATE  OF  LAST  UPDATE: 

PRIMARY  USE  DATABASE 

FLD        NAME       TYPE  WIDTH 

001  TECH  N     002 

002  COUNTER       N     010 
»*  TOTAL  ••  00013 


S:SORTFILE.DBF 

00008 

01/01/80 


DEC 


B:IMC0UNT.DBF 

00013 

01/01/80 


STRUCTURE  FOR  FILE: 

NUMBER  OF  RECORDS: 

DATE  OF  LAST  UPDATE: 

PRIMARY  USE  DATABASE 

FLD         NAME        TYPE  WIDTH 

001  IM  C     004 

002  COUNTER       N     010 
»»  TOTAL  »»  00015 


DEC 


IDl 


STRUCTURE  FOR  FILE:  B : TECHCODE . DBF 

NUMBER  OF  RECORDS:  00008 

DATE  OF  LAST  UPDATE:  01/01/80 

PRIMARY  USE  DATABASE 

FLD        NAME       TYPE  WIDTH    DEC 

001  TECH  N     002 

002  COUNTER  N     010 
**  TOTAL  »*  00015 
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APPENDIX  B 


Thia  data  dictionary  is  divided  in  to  two  parts. 
The  first  part  is  a  definitions  section.  Each 
variable  used  in  the  application  program  is  listed 
alphabetically.  Modules  that  it  can  be  found  in  are 
listed  in  parenthesis.  A  short  definition  below  the 
variable  name  is  given  to  aid  in  understanding 
program  logic. 

The  second  section  is  a  listing  (by  xodule)  of 
equations  used  in  the  program  to  show  variable 
computations . 
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SECTION  ONE 


AUT8  <TAT,  MGR,  CMTR) 

Total  awaiting  proceaa  time  of  all  QDR'a  received 
at  FMSO.  Thia  time  ia  aeaaured  in  terma  of  how  long 
a  QDR  waited  for  a  Supply  Syatew  Analyst  to  actually 
start  working  the  case  up. 


CASELOAD  (MENU) 

Name  of  a  nodule  within  the  application  program 
that  coaputea  the  number  of  cases  handled  by  each 
Supply  System  Analyst  (as  identified  by  their  unique 
tech  codes),  percentage  of  total  cases  handled  by  the 
analyst  and  the  average  number  of  cases  computed  as  a 
function  of  actual  number  of  analysts  currently 
assigned  divided  into  the  total  number  of  cases  on 
the  data  base. 


CASEiNR  (QORTEHP.DBF,  AODREC,  QDREDIT,  QDR.OBF) 

Unique   number   assigned  to  a  QDR  case  at  the  time 
of  its  process  at  FMSO. 


CASES  (ADDREC,  QDREDIT) 

Temporary  data  base  file  in  which  the  data  base 
is  indexed  on  case  number  for  the  purpose  of  sorting 
or  keying  on  the  case  number. 


CATS  (MGR,  CNTR,  QDREDIT,  QDRSTATS.DBF) 

Variable  that  contains  the  total  number  of  QDR 
caaes  not  identified  as  either  Category  1  or  2.  Thia 
number  indicated  the  total  number  of  records 
contained  on  the  database  that  are  in  error  in  this 
field. 


CATl  (MGR,  CNTR,  QDREDIT,  QDRSTATS.DBF) 

Total   number  of  Category  1  QDR's  presently  on  the 
database . 


CATS  (MGR,  CNTR,  QDREDIT,  QDRSTATS.DBF) 

Total   number  of  Category  2  QDR "a  presently  on  the 
database . 
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CATEGORY  <QDRTEWP .DBD.  CNTR,  QDREDIT,  QDR.DBF) 

Na«o   of   field  in  main  data  baae.   Field  in  a  one 
digit  character  that  contains  either  a  '1'  or  a  '2'. 


CAWT8  (QDREDIT) 

Variable   uaed   to   compute   the  total  time  a  case 
apenda   awaiting   process  after  arrival  at  FHSO.   This 
variable   is   used  in  the  module  for  editing  records. 
<See  Awtg) 


;iNR  (QDREDIT) 
Variable   used   to   copy  the  case  number  of  a  data 
base   record   during  the  record  editing  process.   (See 
Case : nr  > 


CCATEGORY  (QDREDIT) 

Variable  used  to  copy  the  category  of  a  case  to  a 
temporary  variable  used  in  the  editing  process.  (See 
Category ) 


CCL08ED  (QDREDIT) 

The  total  number  of  days  between  when  an  Item 
Manager  responds  back  to  FMSO  and  when  FMSO  closes 
out  the  case.  Variable  is  used  in  the  record  editing 
process. 


CCL08E0UT  (QDREDIT) 

Variable  used  to  copy  the  closeout  date  from 
current  record  to  temporary  variable  used  in  the 
editing  process.   (See  Closeout) 


CC08  (QDREDIT) 

Variable  used  to  copy  the  COG  code  of  a  case  to  a 
temporary  variable  used  in  the  editing  process.  (See 
COG) 


CDATEiIN  (QDREDIT) 

Variable  used  to  copy  the  date  a  case  arrived  at 
FMSO  to  a  temporary  variable  used  in  the  editing 
process.   (See  Date: in) 
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CITEMlMGR  (QDREDIT) 

Variable  used  to  copy  the  IteiR  Manager  code  to  a 
temporary  variable  used  in  the  editing  process.  (See 
Itea:ngr> 


CINlWOm<  (QDREDIT) 

Variable  used  to  copy  the  date  a  case  was 
actually  started  in  process  by  a  Supply  Syatea 
Analyst  to  a  temporary  variable  used  in  the  editing 
process.   (See  In: work) 


CJOB  (QDREDIT) 

Variable  used  to  compute  the  total  process  time 
it  takes  a  Supply  System  Analyst  to  process  a  case 
and  send  it  to  the  Item  Manager.  This  variable  is 
used  in  the  editing  process.   (See  Job) 


CLOSED  (HGR»  CNTR,  QDRSTATS.DBF,  TAT) 

Variable  containing  total  number  of  cases  closed 
out.  Used  in  computations  to  compute  averages  for 
reports  generation. 


CL08E0UT  (MGR,  QDRTEHP.DBF*  CNTR,  QDREDIT, 
QDR.DBF,  QDRSTATS.DBF,  TAT) 
One   of   ten   fields   on   main   data   base.   Field 
contains   data   that   the  QDR  case  was  actually  closed 
out  (Disposition  instructions  having  been  completed) . 


(MGR.  QDRTEMP.DBF,  CNTR,  QDR.DBF) 

Cognizance  Group  as  identified  by  the  Naval 
Supply  System.  One  of  ten  fields  in  the  main  data 
base  file  compossed  of  a  two  digit  character. 


COGCOUNT  (MGR,  CNTR,  QDREDIT) 

Name  of  a  data  base  file  used  to  store  the  COG 
codes  and  the  number  of  cases  involving  particular 
COG'S. 


CONTZNUC  (CASELOAD,  MGR,  TAT) 

DO   WHILE   loop   condition   code  used  to  determine 
whether   a   loop   should   or  should  not  be  continued. 
Condition   is  set  to  either  True  or  False  prior  to  the 
execution   of   the   loop   and  reset  within  the  loop  in 
order  to  exit  the  loop. 
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CNTR  <ADDREC,  HAIN) 

Name  of  module  within  the  program  used  to  compute 
variable  totals  and  update  the  QDRSTATS  data  base 
file. 


COUNTER  (HGR,  CASELOAD,  IHCOUNT.DBF,  TECHCODE.DBF, 

SORTFILE.DBF,  CNTR,  QDREDIT,  QDRSTATS. DBF,  TAT) 
Variable   used   to  total  various  counts  needed  for 
other  computations. 


CPR0CE88  (QDREDIT) 

Variable   used   to  compute  the  total  time  it  takes 
a   case   to  be  processed  and  sent  to  an  Item  Manager. 
This   variable   is   used  in  the  editing  process.   (See 
Process) 


(QDREDIT) 

Variable  used  to  copy  the  date  at  which  the  case 
is  responded  to  by  the  Item  Manager  back  to  FMSO  with 
disposition  instructions.   (See  Response) 


CRT  (CASELOAD,  MGR,  TAT) 

DO   WHILE   loop   condition   code  used  to  determine 
whether   a   loop   should   or  should  not  be  continued. 
The   condition  is  set  to  either  True  or  False  prior  to 
the   execution   of   the  loop  and  reset  within  the  loop 
in  order  to  exit  the  loop. 


CTECHlCOOe  (QDREDIT) 

Variable   used   in  the  editing  process  to  identify 
changes   in   the   unique   Supply  System  Analyst  code. 
(See  Tech: code) 


CTIME  (QDREDIT) 

Variable  used  in  the  editing  process  to  compute 
the  total  days  involved  in  the  total  turnaround  time 
that  it  takes  to  process  a  case  from  beginning  to 
closeout.   (See  Time) 


crnoNowiT  (qdredit> 

Variable   used   to  copy  the  date  at  which  the  case 
is  sent  to  the  Item  Manager.   (See  Transmit) 
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DATElIN  (QDRTEMP.DBF,  CNTR,  QDREDIT,  QDR.DBF) 

Julian  date  QOR  case  ia  racelvad  at  FHSO  for 
proceaalng.  Turnaround  time  ia  coaputad  from  thia 
data. 


FLA8  (QDRTEHP.DBF) 

Thia   ia   a   field   no  longer  in  uae  and  ia  marked 
for  excluaion  in  future  veraiona. 


IM  <IMCOUNT.DBF,  CNTR,  QDREDIT,  MGR) 

A  field  in  the  lacount  data  baae  file  uaed  to 
identify  the  varioua  Item  Managera  involved  in  the 
QDR  proceaa . 


IWCOUNT  <MGR,  GNTR) 

Data  baae  file  uaed  to  keep  track  of  all  I tea 
Hanagera  and  total  nuaber  of  caaea  proceeded 
involving  a  given  Itea  Manager. 


INtUORK  (QORTEMP.DBF,  CNTR,  QDREDIT,  QDR.DBF) 

Julian   date  that  a  Supply  Syatea  Analyst  actually 
atarta  proceaaing  the  QDR. 


ITEMif^R    (QDRTEMP.DBF,    CNTR,    QDREDIT,    QDR.DBF) 

Data  baae  field  uaed  to  identify  the  Itea  Manager 
of  a  case.  This  is  one  of  ten  fields  to  a  record 
used  in  the  data  base.  Field  is  a  character  field 
composed  of  four  digits. 


JOB  <TAT,  QDRSTATS.DBF,  CNTR,  MGR) 

Variable  uaed  to  total  up  all  the  days  required 
to  process  cases  at  FHSO  prior  to  being  sent  to  an 
Itea  Manager.  This  variable  is  then  divided  by  the 
total  nuaber  of  cases  sent  to  Itea  Managers  to  give 
an  average  nuaber  of  days  required  to  actually 
process  a  case. 


MAAPT  <MGR,  TAT) 

Menory    variable    that    containa    the   average 
awaiting   proceaa   time   for  caaes  processed  in  FMSO. 
(See    TAT.PRG    in   Section   Two   for   actual   method 
computation. ) 
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MACL    <I1GR,    CASELOAD) 

Memory  variable  that  contains  the  average  case 
load  based  on  actual  nuaber  of  analysts  assigned  to 
the  office  divided  into  the  total  number  of  records 
on  the  data  base.  (See  CASELOAD. PRG  in  Section  Two 
for  actual  method  of  computation.) 


MANAL  (CASELOAD,  MGR) 

Memory  variable  read  into  the  program  from  the 
keyboard  as  a  result  of  a  programmed  query.  Variable 
is  the  actual  number  of  analysts  currently  assigned 
to  the  office. 


M«PT  (MGR,  TAT) 

Memory  variable  containing  the  average  time  that 
it  takes  for  a  case  to  be  processed  and  sent  to  ^n 
Item  Manager.  (See  TAT. PRG  in  Section  Two  for  actual 
method  of  computation. ) 


NAUTO  (CNTR,  QDREDIT) 

Memory  variable  that  contains  the  total  time  in 
days  that  cases  sit  in  the  queue  awaiting  process  by 
an  analyst.  (See  CNTR.PRG  in  Section  Two  for  actual 
method  of  computation.) 


MCA8ENR  (QDREDIT) 

Memory  variable  read  from  the  keyboard  as  a 
result  of  a  request  from  the  program.  This  variable 
is  the  case  number  that  the  operator  desires  to  view 
for  possible  editing. 


NCAT0  (CNTR) 

Memory  variable  that  contains  the  total  number  of 
cases  not  identified  as  either  category  1  or  2.  If 
this  variable  contains  anything  but  a  zero,  then 
there  are  the  same  number  of  records  in  error. 


MCATl  (CNTR) 

Memory   variable  that  contains  the  total  number  of 
category  1  QDR's. 
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MCAT2  CCNTR) 

nemory   variable  that  contains  the  total  number  of 
category  2  QDR'a. 


MCL08E  (CNTR) 

nenory   variable  that  contains  the  total  number  of 
cases  that  have  been  closed  out. 


MCLOSEOUT  <CNTR,  QDREDIT) 

Memory  variable  that  contains  the  total  number  of 
days  that  it  takes  the  Supply  System  Analysts  to 
implement  disposition  instructions  and  close  cases 
out.  Variable  is  used  to  compute  averages  in  reports 
generation.  (See  CNTR.PRG  in  Section  Two  for  actual 
method  of  computation.) 


MCNT  <MGR) 

Memory  variable  used  as  an  incremental  counter 
for  the  purpose  of  determining  the  line  number  of  the 
next  line  of  print  during  report  generation. 


nCNTR  (CASELOAD) 

Memory  variable  used  as  an  incremental  counter 
for  the  purpose  of  determining  the  line  number  of  the 
next  line  of  print  during  report  generation. 


WCOG  (CNTR) 

Memory  variable  that  COG  code  is  placed  into  for 
comparison  as  to  whether  the  COG  is  a  new  COG  or  one 
that  has  been  used  before.  If  it  is  new»  then  it  is 
added  to  the  COG  list  and  the  counter  is  set  to  1. 
If  it  already  exists,  then  the  counter  is  incremented 
by  1. 


MCOT  (MGR,  TAT) 

Memory  variable  containing  the  average  time  in 
days  that  it  takes  analysts  to  implement  disposition 
instructions  from  Item  Managers  and  close  the  case 
out.  (See  TAT.PRG  in  Section  Two  for  actual  method 
of  computation.) 


NCOUNT  (CNTR) 

Memory   variable  that  contains  the  total  number  of 
cases   responded   to  by  Item  Managers  with  disposition 
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Instructions.    Variable   is   used  to  coKpute  averages 
during  reports  generation. 


MCOUNTER  (QDREDIT) 

Memory   variable   used  to  keep  track  of  the  nunber 
of  times  an  event  occurs.   A  general  counter. 


MENU  CMGR,  MAIN,  TAT,  CASELOAD) 

Name  of  primary  module  within  the  program  used  to 
call  modules  to  either  add/edit  records  or  generate 
required  reports. 


MFLAG  <CNTR,  QDREDIT) 

DO   WHILE   loop   condition   code  used  to  determine 
whether   a   loop   should   or  should  not  be  continued. 
Condition   is  set  to  either  True  or  False  prior  to  the 
execution   of   the   loop   and  reset  within  the  loop  in 
order  to  exit. 


MFLAGl  (QDREDIT) 

See  MFLAG  above. 


MFLAGS  (QDREDIT) 

See  MFLAG  above. 


MIM  (CNTR) 

Memory  variable  that  the  Item  Manager  code  is 
placed  into  for  comparison  as  to  whether  the  Item 
Manager  code  is  a  new  code  or  one  that  has  been  used 
before.  If  it  is  new,  then  it  is  added  to  the  Item 
Manager  list  and  the  counter  is  set  to  1 .  If  it 
already  exists,  then  the  counter  is  incremented  by  1. 


MIMR  (MGR,  TAT) 

Memory  variable  containing  the  average  number  of 
days  that  it  takes  an  Item  Manager  to  respond  back  to 
FMSO  with  actual  disposition  instructions.  (See 
TAT.PRG  in  Section  Two  for  actual  method  of 
computation . ) 


WJOB  (CNTR,  QDREDIT) 

Memory   variable  that  contains  the  total  number  of 
days   that   it  took  to  actually  process  cases  prior  to 
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sending   the»  out  to  the  Item  Managers.   (See  CNTR.PRG 
in  Section  Two  for  actual  method  of  computation.) 


MPC  (MGR,  CASELOAD) 

Memory   variable   used   to   store   percentages   of 
cases   handled   by   a   given   Supply   System  Analyst. 
Percentage   is   computed   by  dividing  the  total  number 
of   cases   processed   through   FMSO  into  the  number  of 
cases  handled  by  the  analyst. 


NPR0CE88  (CNTR,  QOREDIT) 

Memory  variable  used  to  store  the  total  number  of 
days  that  it  takes  a  case  to  be  processed  from 
arrival  at  FMSO  to  being  sent  to  the  Item  Manager. 
This  variable  is  used  in  the  initial  turnaround  time 
computations  in  reports  generation.  (See  CNTR.PRG  in 
Section  Two  for  actual  method  of  computation.) 


MRE8P0N8E  (CNTR,  QDREDIT) 

Memory  variable  that  contains  the  total  number  of 
days  that  it  takes  Item  Managers  to  respond  back  to 
FMSO  with  disposition  instructions.  This  variable  is 
used  to  compute  an  average  response  time  during 
reports  generation.  (See  CNTR.PRG  in  Section  Two  for 
actual  method  of  computation.) 


M80  (MGR) 

Memory  variable  that  contains  the  total  number  of 
cases  still  being  processed  by  Item  Managers.  (See 
MGR.PRG  in  Section  Two  for  actual  method  of 
computation. ) 


irr«T  (MGR,  TAT) 

Memory  variable  containingthe  average  turnaround 
time  from  arrival  to  sending  a  case  to  the  Item 
Manager.  (See  TAT.PRG  in  Section  Two  for  actual 
method  of  computation. ) 


MTECH  (CNTR) 

Memory  variable  that  Tech: code  is  placed  into  for 
comparison  asto  whether  the  tech  code  is  a  new  code 
or  one  that  has  been  used  before.  If  it  is  a  new 
code*  then  it  is  added  the  list  of  codes  and  the 
counter  is  set  to  1 .  If  it  already  exists  on  the 
data  base,  then  the  counter  is  incremented  by  1. 
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MTIME  <MGR,  CNTR,  QDREDIT,  TAT) 

Henory  variable  that  contains  the  total  nunber  of 
days  thatlt  has  taken  to  process  all  cases  from 
arrival  in  FMSO  to  the  final  close  out  of  thecase. 
This  variable  is  used  to  compute  their  average 
overall  turnaround  time  to  proces  a  case  froft 
beginning  to  end.  (See  CNTR.PRG  in  Section  Two  for 
actual  method  of  computation.) 


MTIP  <MGR) 

Memory  variable  containing  the  total  number  of 
cases  being  closed  out  by  the  analysts.  (See  MGR.PRG 
in  Section  Two  for  actual  method  of  computation.) 


MTOH  (MGR) 

Memory  variable  that  contains  the  total  number  of 
cases  in  the  office  being  processed  the  analysts  less 
the  cases  in  the  queue  awaiting  an  analyst  to  be 
available  to  handle  them.  (See  MGR.PRG  in  Section 
Two  for  the  actual  method  of  computation.) 


MTOTftL  (CNTR) 

Memory  variable  that  contains  the  total  number  of 
cases  being  processed  by  the  count  module.  This 
total  is  then  added  to  the  overall  total  number  of 
cases  on  the  data  base  kept  in  the  statistics  data 
base  file  (QORSTATA.OBF) . 


MTR«N  (CNTR) 

Memory  variable  that  contains  the  total  number  of 
cases  that  have  been  sent  to  an  Item  Manager.  This 
total  is  computed  based  on  the  cases  being  processed 
by  the  count  module.  This  total  is  then  added  to  the 
overall  total  number  sent  to  Item  Managers  kept  in 
the  statistics  data  base  file  (QDRSTATS.DBF) . 


MWORK  (CNTR) 

Memory   variable   used   as   a   scratch   pad  during 
various  computations. 


113 


p. CATEGORY  (QDREDIT) 

See  CATEGORY.  'P.'  identifies  the  variable  as 
belonging  to  the  primary  data  base  file  when  two 
files  ar^  at  the  same  time.  See  the  command  SELECT 
in  the  dBase  II  manual  for  a  more  complete 
explanation. 


P.CLOSEOUT  (QDREDIT) 

See  CLOSEOUT.   See  P. CATEGORY  above. 


P.CX38    (QDREDIT) 

See   COG.       See    P. CATEGORY    above. 


P. ZTEM1M8R  (QDREDIT) 

See  ITE)1:MGR.   See  P. CATEGORY  above, 


P. RESPONSE  (QDREDIT) 

See  RESPONSE.   See  P. CATEGORY  above, 


PROCESS  (MGR,  CNTR,  QDRSTATS.DBF,  TAT) 

Total  number  of  days  needed  to  process  a  case 
from  arrival  at  FMSO  to  being  sent  to  an  Item 
Manager.  This  total  is  used  in  computation  during 
reports  generation  to  produce  the  initial  turnaround 
tine.  (See  QDRSTATS.DBF  in  Section  Two  for  actual 
method  of  computation.) 


P.TECHCODE  (QDREDIT) 

See  TECHCODE.   See  P. CATEGORY  above. 


P. TRANSMIT  (QDREDIT) 

See  TRANSMIT.   See  P. CATEGORY  above. 


QOR  (MAIN,  QDREDIT.  ADDREC) 

Main  data  base.  Contains  all  cases  processed  by 
FMSO.  Each  case  is  entered  on  to  a  ten  field  record 
and  maintained  on  line. 


QDRSTATS  (CASELOAD,  QDREDIT,  TAT,  MGR) 

Name  of  a  data  base  file  used  to  store  total 
counts  of  various  aspects  of  the  data  on  cases  for 
management  reports  generation. 
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QDRTEMP  (ADDREC) 

Name  of  a  data  base  file  used  to  store  new 
records  prior  to  their  addition  to  the  main  data 
base. 


REPLY  <MGR,  CASELOAD,  TAT) 

Input   variable   name   used   to   identify  keyboard 
responses  at  various  points  in  the  program  process. 


RESPONSE  <MGR,  QDRTEMP. DBF,  CNTR,  QDREDIT,  QDR.DBF, 
QDRSTATS.DBF,  TAT) 
Julian   data   a  case  is  received  back  from  an  Item 
Manager   with  disposition  instruction  (See  QDR . DBF  for 
make  up  of  field). 


8. COO  (QDREDIT) 

See  COG.  'S.'  is  used  to  identify  a  variable  in 
the  secondary  data  base  file  that  is  open  at  the  same 
time  as  a  primary  data  base  file.  See  the  SELECT 
command  in  the  dBase  II  manual  for  a  complete 
explanation. 


S0RTC06  (MGR) 

Sorts   COG   codes   and   arranges  them  in  ascending 
alphabetical  order. 


80RTFILE  (MGR,  CASELOAD) 

Temporary  data  base  file  used  to  keep  track  of 
the  Supply  System  Analyst  codes  and  the  total  cases 
handled  by  each  analyst. 


SORTIM  (MGR) 

Sorts   Item   Manager   codes   and   arranges  them  in 
ascending  alphbetical  order. 


S. ITEMlHSR  (QDREDIT) 

See  ITEM: MGR.   See  S.COG  above. 
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TECH  (CASELOAD,  MGR,  TECHCODE.DBF,  SORTFILE.DBF, 
QDREDIT) 
A      field   containing   the   Tech:code   arranged   in 
ascending  numeric  order. 


7ECHC0DE   (CNTR,  CASELOAD,  HGR,  QDREDIT) 

Nane  o£  data  base  file  used  to  maintain  a  listing 
of  Supply  System  Analyst  codes  and  the  total  number 
of  cases  handled  by  each  analyst. 


TECHiCOOE   (CNTR,  QDREDIT,  QDRTEHP.DBF) 

Unique   two  digit  code  used  to  identify  the  Supply 
System  Analyst  who  is  or  has  worked  up  a  given  case. 


TIME  (CNTR,  TAT,  WGR) 

The  total  time  of  process  from  date  in  to  close 
out  of  a  case.  Used  to  compute  average  turnaround 
time  of  a  case  from  initial  receipt  at  FHSO  to  the 
time  that  FHSO  closes  the  case  out  and  places  it  in  a 
history  file. 


TRflN  (MGR,  CNTR,  QDREDIT,  QDRSTATS,  TAT) 

Variable  containing  total  number  of  cases  sent  to 
Item  Managers  by  FHSO.  Used  to  compute  averages  in 
computations  for  reports  generation. 


1R9NBH1J    (QDRTEHP.DBF,  CNTR,  QDREDIT,  QDR.DBF) 

Julian   date   a  case  is  sent  from  FHSO  to  the  Item 
Manager  for  further  processing. 


TOTAL  (MGR,  CASELOAD,  CNTR,  QDRSTATS,  TAT) 

Variable  containing  the  total  number  of  cases  in 
the  data  base.  This  variable  is  used  to  compute 
various  averages  in  computations  for  reports 
generation. 
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X  <HAIN) 

Variable  used  to  create  a  pause  within  a  program 
which  allows  the  operator  to  read  nesaages  on  the 
screen  (CRT)  prior  to  continuation  of  the  program 
execution.  In  this  manner,  the  operator  need  not 
make  any  keyboard  response  inorder  to  continue. 
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SECTION  TWO 


CASELOAD. PRS 

TOTAL/MANAL  •  1.00  «  MACL 
COUNTER/TOTAL  •  100.00  »  MPC 


MBR«  PRO 

PROCESS/TOTAL  •  1.00  »  MTAT 
AWTG/TRAN  »  1.00  «  MAAPT 
JOB/TOTAL  •  1.00  =  MAP? 
RESPONSE/COUNTER  »  1.00  »  MIMR 
GLOSEOUT/CLOSED  «•  1.00  »  MCOT 
TIME/COUNTER  •  1.00  =  MTIME 
TOTAL  -  TRAN  »  MTOH 
COUNTER  -  CLOSED  =  MTIP 
TRAN  -  COUNTER  =  MSO 
TOTAL/MANAL  »  1.00  *  MACL 
COUNTER/TOTAL  •  100.00  =  MPC 


TAT. PR8 


PROCESS/TOTAL  •  1.00  »  MTAT 
AWTG/TRAN  »  1.00  =  MAAPT 
JOB/TOTAL  •  1.00  «  MAPT 
RESPONSE/COUNTER  »  1.00  =  MIMR 
CLOSEOUT /CLOSED  •  1.00  =«  MCOT 
TIME/COUNTER  •  1.00  -  MTIME 


CNTR.PRO 


MTOTAL  *  1  «  MTOTAL 
IN: WORK  -  DATE: IN  »  MAWTG 
CATEGORY  =«  0,  1,  OR  2 
TRANSMIT  -  IN: WORK  »  MJOB 
TRANSMIT  -  DATE: IN  =  MPROCESS 
RESPONSE  -  TRANSMIT  »  MRESPONSE 
CLOSEOUT  -  RESPONSE  =  MCLOSEOUT 
CLOSEOUT  -  DATE: IN  »  MTIME 
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QDR3TAT8. DBF 

TOTAL  »  MTOTAL  ♦  TOTAL 

AWTG  =  MAWTG  ♦  AWTG 

JOB  «  MJOB  >  JOB 

PROCESS  =  MPROCESS  *    PROCESS 

CATC  =  MCATO  •••  CATO 

CATl  s  MCATl  ♦  CATl 

CAT2  «  MCAT2  ♦  CAT2 

RESPONSE  »    HRESPONSE  *    RESPONSE 

CLOSEOUT  =  MCLOSEOUT  ♦  CLOSEOUT 

TIME  «  MTIME  ♦  TIME 

COUNTER  =  MCOUNT  ♦  COUNTER 

TRAN  =  MTRAN  ♦  TRAN 

CLOSED  »  MCLOSE  ♦  CLOSED 


tt>fiEDXT.  PRS 

DATE: IN  *  CDATEIIN 

IN: WORK  »  cin:work 
case:nr  =  ccase:nr 

COG  »  CCOG 

tech: CODE  =  CTECH:CODE 

ITEM:MGR  =  CITEM:MGR 

CATEGORY  »  CCATEGORY 

TRANSMIT  =  CTRANSMIT 

RESPONSE  =  CRESPONSE 

CLOSEOUT  =  CCLOSEOUT 

AWTG  »  AWTG  ♦  MAWTG  -  CAWTG 

JOB  =  JOB  ♦  MJOB  -  CJOB 

PROCESS  »  PROCESS  ♦  MPROCESS  -  CPROCESS 

RESPONSE  »  RESPONSE  *  MRESPONSE  -  CRESPONSE 

CLOSEOUT  =  CLOSEOUT  ♦  MCLOSEOUT  -  CCLOSEOUT 

TIME  »  TIME  ♦  MTIME  -  CTIME 
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90IITFILE.DBF 

TECH  »  MTECH  ♦  TECH: CODE 
COUNTER  »  COUNTER  *    1 


XMCOUNT.OBF 


IM  =>  (See 
COUNTER  « 


IH  in  Section  One.) 
COUNTER  ♦  1 


TECHCODE.OBF 

TECH  =  (See  TECH  in  Section  One.) 
COUNTER  »  COUNTER  >  1 
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